File Coverage

blib/lib/Path/Abstract.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	6	8	75.0
condition	4	6	66.6
subroutine	11	11	100.0
pod			n/a
total	56	60	93.3

package Path::Abstract;
BEGIN {
  $Path::Abstract::VERSION = '0.096';
}
# ABSTRACT: Fast and featureful UNIX-style path parsing and manipulation

use warnings;
use strict;

use vars qw/$_0_093_warn %_0_093_warning/;


$_0_093_warn = 1;

use Sub::Exporter;
{
    my $exporter = Sub::Exporter::build_exporter({
        exports => [ path => sub { sub {
            return __PACKAGE__->new(@_)
        } } ],
    });

    sub import {
        if (@_ && grep { defined && $_ eq '--no_0_093_warning' } @_) {
            $_0_093_warn = 0;
        }
        @_ = grep { ! defined || $_ !~ m/^--/ } @_;
        goto $exporter;
    };
}

use overload
	'""' => 'get',
	fallback => 1,
;

use base qw/Path::Abstract::Underload/;

use Carp;
sub _0_093_warn {
    if ($_0_093_warn) {
        my ($package, $filename, $line, $subroutine) = caller(1);
        if (! $_0_093_warning{$subroutine}) {
            $_0_093_warning{$subroutine} = 1;
            $subroutine =~ s///g;
            carp "** $subroutine behavior has changed since 0.093\n" .
                 "** To disable this warning: use Path::Abstract qw/--no_0_093_warning/"
        }
    }
}





























1;

__END__