/usr/local/CPAN/Module-Setup/Module/Setup/Path/Dir.pm

• package Module::Setup::Path::Dir
  • stringify
  • mkpath
• EOF

package Module::Setup::Path::Dir;
use strict;
use warnings;
use base 'Path::Class::Dir';

use Module::Setup;

sub stringify {
    my($self) = @_;
    return $self->{__stringify_cache} ||= $self->SUPER::stringify;
}

sub mkpath {
    my $self  = shift;
    Module::Setup::log($self, "Creating directory $self");
    $self->Path::Class::Dir::mkpath(@_);
}
1;