File Coverage

blib/lib/FindBin/Bin.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	20	22	90.9

########################################################################
# housekeeping
########################################################################
package FindBin::Bin v0.1.0;
use v5.40;

use parent qw( Exporter );

use File::Spec::Functions
qw
(
    canonpath
    catpath
    curdir
    rel2abs
    splitpath
);

BEGIN
{
    # recall that $0 is an lvalue!!
    # grab it quickly before it can change.
    # this will not change during execution, compute it once.
    #
    # note that $0 defaults to a file path, never a directory.

    my $bin_from
    = $0  =~ m{^ (?: -e | - | interactive ) }x
    ? curdir
    : ( splitpath $0 )[0,1]
    ;

    our $Bin    = canonpath rel2abs $bin_from;

    eval qq/sub Bin(){ '$Bin' }/;
}

########################################################################
# package variables & sanity checks
########################################################################

our @EXPORT_OK  = qw( $Bin Bin );

1
__END__