package Mkdir;

use base qw(Exporter);
use strict;
use subs 'mkdir';
use warnings;

our @EXPORT = qw(mkdir);

sub mkdir {
    my $path = shift;
    my $mode = shift || '0777';
    my $d = '';
    for (split/[\\\/]/,$path) {
        $d .= $_.'/';
        -d $d || CORE::mkdir($d,$mode) || return
    }
    1;
}

1;

__END__

=pod

=head1 NAME

Mkdir.pm - override CORE::mkdir with "complete" version.

=head1 SYNOPSIS

    #!perl
    
    use strict;
    use warnings;
    
    use Mkdir;
    
    mkdir('/create/all/of/these/directories/',0755);

=cut