33 lines
413 B
Perl
33 lines
413 B
Perl
package Foo;
|
|
|
|
use warnings FATAL => 'all';
|
|
use strict;
|
|
|
|
my $blah = "foo foo bar" . "foo foo bar" . "foo foo bar" . "foo foo bar" . "foo foo bar" . "one";
|
|
|
|
use Carp;
|
|
|
|
${$blarg->{foo}} = 33;
|
|
${blarg} = 33;
|
|
@{$blarg};
|
|
@$blarg;
|
|
|
|
|
|
foreach my $i (0..40) {
|
|
if($foo) {
|
|
print "joshua!\n";
|
|
}
|
|
}
|
|
|
|
$blah::blahrg->foo(one=>3, two=>2, three=>1);
|
|
|
|
|
|
my $foo = <<EOF;
|
|
hi hi hi EOF hi hi EOF
|
|
EOF
|
|
|
|
EOF
|
|
|
|
print $foo;
|
|
|