The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use strict;
use warnings;
use lib '../lib';
use HTML::Template;

my $tmpl = HTML::Template->new(filename => 'templates/long_loops.tmpl');
$tmpl->param(
    propname           => 'foo',
    javascript         => '<script type="text/javascript">aler("hi!")</script>',
    hotel_key          => 'bar&>?/',
    alert              => 'Danger!&!',
    new_comment_button => '<input type="button" name="new_comment">Click Me!</input>',
    comments           => [
        {
            color     => 'black',
            posted_by => 'me & you',
            posted_on => '<yesterday>',
            stars     => '10',
            comment   => 'Super & duper cool stuff!',
            approval_button =>
              '<input type="button" name="approve_comment">No, Click Me!</input>',
            edit_button =>
              '<input type="button" name="edit_comment">Hey, what about me!</input>',
            delete_button =>
              '<input type="button" name="delete_comment">Why am I always last?</input>',
        },
        {
            color     => 'blue',
            posted_by => 'you & I',
            posted_on => '2 days <ago>',
            stars     => '5',
            comment   => 'It is ok <really>',
            approval_button =>
              '<input type="button" name="approve_comment">No, Click Me!</input>',
            edit_button =>
              '<input type="button" name="edit_comment">Hey, what about me!</input>',
            delete_button =>
              '<input type="button" name="delete_comment">Why am I always last?</input>',
        },
        {
            color     => 'yellow',
            posted_by => 'someone & someone else',
            posted_on => '4 days <ago>',
            stars     => '4',
            comment   => 'It would not kill me to go back & spend more time there',
            approval_button =>
              '<input type="button" name="approve_comment">No, Click Me!</input>',
            edit_button =>
              '<input type="button" name="edit_comment">Hey, what about me!</input>',
            delete_button =>
              '<input type="button" name="delete_comment">Why am I always last?</input>',
        },
        {
            color     => 'blue',
            posted_by => 'someone else!&!',
            posted_on => '<4 days ago>',
            stars     => '6',
            comment   => 'I enjoyed the <bed>',
            approval_button =>
              '<input type="button" name="approve_comment">No, Click Me!</input>',
            edit_button =>
              '<input type="button" name="edit_comment">Hey, what about me!</input>',
            delete_button =>
              '<input type="button" name="delete_comment">Why am I always last?</input>',
        },
        {
            color     => 'red',
            posted_by => 'someone else <&>',
            stars     => '6',
            approval_button =>
              '<input type="button" name="approve_comment">No, Click Me!</input>',
        },
        {},
    ],
    comment_editor => [
        {
            color     => 'black',
            posted_by => 'me',
            posted_on => 'yesterday',
            stars     => '10',
            comment   => 'Super duper cool stuff!',
            ok_button =>
              '<input type="button" name="ok">I am totally fine with that.</input>',
            cancel_button =>
              '<input type="button" name="cancel">No you are not.</input>',
        },
        {
            color     => 'blue',
            posted_by => 'you',
            posted_on => '2 days ago',
            stars     => '5',
            comment   => 'It is ok',
            ok_button =>
              '<input type="button" name="ok">I am totally fine with that.</input>',
            cancel_button =>
              '<input type="button" name="cancel">No you are not.</input>',
        },
        {
            color     => 'yellow',
            posted_by => 'someone',
            posted_on => '4 days ago',
            stars     => '4',
            comment   => 'It would not kill me to go back',
            ok_button =>
              '<input type="button" name="ok">I am totally fine with that.</input>',
            cancel_button =>
              '<input type="button" name="cancel">No you are not.</input>',
        },
        {
            color     => 'blue',
            posted_by => 'someone else',
            posted_on => '4 days ago',
            stars     => '6',
            comment   => 'I enjoyed the bed',
            ok_button =>
              '<input type="button" name="ok">I am totally fine with that.</input>',
            cancel_button =>
              '<input type="button" name="cancel">No you are not.</input>',
        },
        {
            color     => 'red',
            posted_by => 'someone else',
            stars     => '6',
            cancel_button =>
              '<input type="button" name="cancel">No you are not.</input>',
        },
        {},
    ],
    comment_created => [
        {posted_by => 'Fred'},
        {posted_by => 'George'},
        {posted_by => 'Thomas'},
        {posted_by => 'Dan'},
        {posted_by => 'Henry'},
        {posted_by => 'Michael'},
        {posted_by => 'Nelson'},
        {posted_by => 'Brad'},
        {posted_by => 'Rodney'},
        {posted_by => 'Jose'},
        {posted_by => 'Marie'},
        {posted_by => 'Eric'},
        {posted_by => 'Isaac'},
        {posted_by => 'Rusty'},
        {posted_by => 'Jacob'},
        {posted_by => 'Alice'},
        {posted_by => 'Kelly'},
        {posted_by => 'Juan'},
        {posted_by => 'Lewis'},
        {posted_by => 'Fredrick'},
        {posted_by => 'Manny'},
        {posted_by => 'Dee'},
        {posted_by => 'Nort'},
        {posted_by => 'Jeanne'},
        {posted_by => 'Oscar'},
        {posted_by => 'Peter'},
        {posted_by => 'Russel'},
        {posted_by => 'Steve'},
        {posted_by => 'Timmy'},
        {posted_by => 'Vance'},
        {},
    ],
);