File Coverage

blib/lib/Cwd/Guard.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	1	2	50.0
total	45	47	95.7

package Cwd::Guard;

use strict;
use warnings;
use parent 'Exporter';

our @EXPORT_OK = qw/cwd_guard/;
our $Error;

our $VERSION = '0.05';

use constant USE_FCHDIR => eval { opendir my $dh, '.'; chdir $dh; 1 };
use if !USE_FCHDIR, Cwd => qw/getcwd/;

sub cwd_guard {
    my $dir = shift;
    __PACKAGE__->new($dir);
}

sub new {
    my $class = shift;
    my $dir = shift;
    my $cwd;
    if (USE_FCHDIR) { opendir $cwd, '.' } else { $cwd = getcwd() }
    my $callback = sub {
        chdir $cwd;
    };
    my $result = defined $dir ? chdir($dir) : chdir();
    $Error = $!;
    return unless $result;
    bless $callback, $class;
}

sub DESTROY {
    $_[0]->();
}


1;
__END__