[%-
    tips = [
        # Real Tips -----------------------------------------
        {
            title => 'Database interfaces',
            desc => '<a 
            href="https://metacpan.org/module/DBIx::Class">DBIx::Class</a> 
            provides an Object Relational Mapper (ORM) to databases
             (e.g. Oracle, SQL Server, MySQL,
             Postgress, Access etc)',
        },
        {
            title => 'Object Oriented programming',
            desc => '<a href="https://metacpan.org/module/Moose">Moose</a> 
            (and associated MooseX modules) are a postmodern object system for
            Perl 5',
        },
        {
            title => 'Web frameworks',
            desc => '<a
             href="https://metacpan.org/release/Catalyst-Runtime">Catalyst</a>
            is a Model View Controller (MVC) Web application framework',
        },
        {
            title => 'Need templates?',
            desc => 'look at... <a
             href="https://metacpan.org/release/Template-Toolkit">Template Toolkit</a>',
        },
        {
            title => 'Critique your code',
            desc => 'automaticaly with Perl::Critic or online at... <a 
            href="http://perlcritic.com/">PerlCritic.com</a>',
        },
    ];

    rand_num = tips.size.rand;
    tip = tips.$rand_num;

-%]

[%-
    tips = [
        # Real Tips -----------------------------------------
        {
            title => 'Database interfaces',
            desc => '<a 
            href="https://metacpan.org/module/DBIx::Class">DBIx::Class</a> 
            provides an Object Relational Mapper (ORM) to databases
             (e.g. Oracle, SQL Server, MySQL,
             Postgress, Access etc)',
        },
        {
            title => 'Object Oriented programming',
            desc => '<a href="https://metacpan.org/module/Moose">Moose</a> 
            (and associated MooseX modules) are a postmodern object system for
            Perl 5',
        },
        {
            title => 'Web frameworks',
            desc => '<a
             href="https://metacpan.org/release/Catalyst-Runtime">Catalyst</a>
            is a Model View Controller (MVC) Web application framework',
        },
        {
            title => 'Need templates?',
            desc => 'look at... <a
             href="https://metacpan.org/release/Template-Toolkit">Template Toolkit</a>',
        },
        {
            title => 'Critique your code',
            desc => 'automaticaly with Perl::Critic or online at... <a 
            href="http://perlcritic.com/">PerlCritic.com</a>',
        },
        {
            title => 'Test your code',
            desc => 'use <a href="https://metacpan.org/module/Test::More">Test::More</a> or 
            <a href="https://metacpan.org/module/Test::Most">Test::Most</a>',
        },
    ];

    rand_num = tips.size.rand;
    tip = tips.$rand_num;

-%]

Add tip to use Test::More/Most
Add tip to use Test::More/Most
