d6
/
pmacs3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

--HG-- 

branch : pmacs2
This commit is contained in:
moculus 2007-06-16 14:48:38 +00:00
parent e9e22bdf4d
commit f0384b064a
1 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
foo.pl
View File

@ -1,32 +0,0 @@
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;