- or download this
use strict;
use warnings;
...
[%- FOREACH thing = things %]
<small>[% thing %]</small>
[%- END %]
- or download this
#!/usr/bin/perl -l
use lib '/PATH/TO/DesignPatterns-Perl/lib/';
...
)->run( 1 .. 10 );
print `cat out.txt`;
print `rm out.txt`;
- or download this
package HTML::Element;
use strict;
...
return @_ ? "<$tag$attr_txt>@_</$tag>" : "<$tag$attr_txt />";
}
1;
- or download this
use HTML::Element '!DEFAULT';
print '<!DOCTYPE html>',
...
),
),
);
- or download this
#!/usr/bin/env perl
...
#print $_,$/ for @flavors;
print $_,$/ for sort keys %flavors;
- or download this
/*------+---------+---------+---------+---------+---------+--------+*\
| |
...
return floatValueLeft + floatValueRight;
}
- or download this
use Attribute::Handlers;
...
sub foo {
print Dumper \@_;
}
- or download this
sub new {
my $class = shift;
...
return bless $self, $class;
}
- or download this
#!/usr/bin/perl -w
...
=cut
- or download this
use strict;
use warnings;
...
my @ip = (sort { $#$b <=> $#$a } @bucket)[0];
print Dumper \@ip;
- or download this
package DMML;
...
.
1;
- or download this
use strict;
use warnings;
...
);
print Dumper $dmml->{OUTPUT};
- or download this
package DVD::director_movie;
use base qw(DVD::DBI);
...
});
1;
- or download this
use DBI;
use HTML::Template;
...
</tmpl_loop>
</select>
</form>
- or download this
use Carp;
...
$AUTOLOAD =~ /.*::(\w+)/ && exists $self->{$1} and return $self->{
+$1};
croak "No such attribute: $1";
}
- or download this
use strict;
use warnings;
...
}
print Dumper \%hash;
- or download this
#!/usr/bin/perl
...
</option>
</select>
</tmpl_loop>
- or download this
#!/usr/bin/perl
...
-labels => \%label,
);
- or download this
#!/usr/bin/perl
...
$var = shift;
print "$var\n";
}
- or download this
#!/usr/bin/perl
...
my $self = shift;
print $self->{var},"\n";
}
- or download this
#!/usr/bin/perl
...
print OUT;
}
}
- or download this
#!/usr/bin/perl
...
open IN, $_;
print OUT while <IN>;
}