File Coverage

blib/lib/File/cd.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	8	10	80.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	40	42	95.2

package File::cd;
{
  $File::cd::VERSION = '0.003';
}

# ABSTRACT: Easily and safely change directory

use strict;
use warnings;

use Carp qw(croak);
$Carp::Internal{(__PACKAGE__)} = 1;
use Cwd ();


use Exporter qw(import);
our @EXPORT = our @EXPORT_OK = qw(cd);


sub cd ($&) {
    my ($dir, $func) = @_;
    croak "Directory '$dir' does not exist" unless -d $dir;

    my $orig_dir = Cwd::getcwd();

    chdir $dir or croak "Failed to change directory to '$dir': $!";

    # only one will eventually be used (depending on context)
    my ($retval, @retval);

    if (wantarray) {
        @retval = $func->();
    }
    else {
        # void context also goes here
        $retval = $func->();
    }

    chdir $orig_dir
      or croak "Failed to go back to original directory '$orig_dir': $!";

    return wantarray ? @retval : $retval;
}

1;

__END__