File Coverage

blib/lib/Devel/LineName.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	8	8	100.0
condition	4	5	80.0
subroutine	7	7	100.0
pod			n/a
total	48	49	97.9

package Devel::LineName;
use strict;
use warnings;

our $VERSION = '0.04';
$VERSION = eval $VERSION;

use Carp;

sub import {
    my ($pkg, $prag, $hashref) = @_;
    my $callpkg = caller(1);

    defined $hashref or croak "$pkg must be use()ed with two args";

    $prag =~ /^\w+\z/   or croak "Invalid $pkg line naming pragma [$prag]";
    ref $hashref eq 'HASH' or croak "2nd arg to 'use $pkg' must be a hashref";

    my $filename = $INC{'Devel/LineName.pm'};
    $INC{"$prag.pm"} ||= $filename;
    if ($INC{"$prag.pm"} ne $filename) {
        croak "$pkg pragma [$prag] clashes with the $prag module";
    }

    no strict 'refs';
    no warnings 'redefine';
    *{$prag.'::import'} = sub {
        my ($pkg, $linename, $offset) = @_;
        $offset ||= 0;

        $hashref->{$linename} = (caller(1))[2] + $offset;
    };
}

1;

__END__