Perl: print quotes at the end of the file, but use BEGIN

avar · Sep 23, 2010 · 64aa737 · 64aa737
1 parent d592129
commit 64aa737
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/lib/App/QuoteCC/Output/Perl.pm b/lib/App/QuoteCC/Output/Perl.pm
@@ -83,12 +83,13 @@ __DATA__
 __[ program ]__
 #!/usr/bin/env perl
 
-our @QUOTES = ([% FOREACH quote IN quotes %]<<'----[% loop.count %]----8========D',[% END %]);
-[% FOREACH quote IN quotes %][% quote %]
-----[% loop.count %]----8========D
-[% END %]
 if (@ARGV && $ARGV[0] eq '--all') {
     print for @QUOTES;
 } else {
     print $QUOTES[rand @QUOTES];
 }
+
+BEGIN { our @QUOTES = ([% FOREACH quote IN quotes %]<<'----[% loop.count %]----8========D',[% END %]); }
+[% FOREACH quote IN quotes %][% quote %]
+----[% loop.count %]----8========D[% UNLESS loop.last %]
+[% END %][% END %]