File Coverage

blib/lib/Just/Another/Perl/Hacker.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition	2	3	66.6
subroutine	6	6	100.0
pod			n/a
total	27	28	96.4

#
# $Id: Hacker.pm,v 0.1 2006/03/25 12:20:27 dankogai Exp dankogai $
#
package Poem;
use 5.008001;
use strict;
use warnings;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;

package Another;
sub Just{
    my $another = shift;
    my $perl_hacker = shift;
    my $just = (caller(1))[3] || (caller(0))[3];
    # warn $just;
    $just =~ s/.*:://o;
    "$just $another $perl_hacker";
}
sub Yet { Just(@_) }

package Hacker;
sub Perl{
    my $hacker = shift;
    my $perl = (caller(0))[3];
    $perl =~ s/.*:://o;
    "$perl $hacker";
}
*Porter::Perl = \&Hacker::Perl;
*Poet::Perl   = \&Hacker::Perl;

1;
__END__