File Coverage

blib/lib/autopackage.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	30	31	96.7

package autopackage;
{
  $autopackage::VERSION = '0.01';
}
use strict;
use warnings;

# ABSTRACT: Automatically set your package based on how your module was loaded.


use B::Hooks::Parser  0.08   qw();
use Carp              0      qw(confess);

sub import {

    # figure out where we're called from
    my (undef, $filename) = caller(0);

    # figure out where it got loaded via %INC.
    my $pkg;
    for my $k (sort keys %INC)
    {
        if ($INC{$k} eq $filename)
        {
            $pkg = $k;
            $pkg =~ s<[/\\]><::>g;
            $pkg =~ s<\.pm$><>i; # can this be uppercase on some platforms?
            last;
        }
    }

    confess("autopackage could not determine package for filename '$filename', died")
        unless defined $pkg;

    B::Hooks::Parser::inject("; package $pkg;");
};

1;

__END__