File Coverage

blib/lib/IO/All/Dir.pm

Criterion	Covered	Total	%
statement	10	20	50.0
branch	2	10	20.0
condition	2	3	66.6
subroutine	3	5	60.0
pod	0	3	0.0
total	17	41	41.4

package IO::All::Dir;
use IO::All::Base;
extends 'IO::All::Filesys';

# Upgrade from IO::All to IO::All::Dir
use constant upgrade_methods => [qw(dir mkdir)];

sub can_upgrade {
    my ($self, $object) = @_;
    my $location = $object->location;
    return if
        not defined $location or
        not length $location;
    -d $location;
}

sub dir {
    my $self = shift;
    $self->name(shift) if @_;
    return $self;
}

sub mkdir {
    my ($self) = @_;
    my $name = $self->name;
    my $strict = $self->{_strict};
    if (-d $name) {
        return unless $strict;
        $self->throw("Can't mkdir $name. Directory already exists.");
    }
    CORE::mkdir($name) or $self->throw("mkdir $name failed: $!");
}

1;