view release on metacpan or  search on metacpan

lib/Module/Starter/Smart.pm  view on Meta::CPAN

136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
my $module = shift;
my $rtname = shift;
 
my @parts = split( /::/, $module );
my $filepart = (pop @parts) . ".pm";
my @dirparts = ( $self->{basedir}, 'lib', @parts );
my $manifest_file = join( "/", "lib", @parts, $filepart );
if ( @dirparts ) {
    my $dir = File::Spec->catdir( @dirparts );
    if ( not -d $dir ) {
        local @ARGV = $dir;
        mkpath @ARGV;
        $self->progress( "Created $dir" );
    }
}
 
my $module_file = File::Spec->catfile( @dirparts,  $filepart );
 
$self->{module_file}{$module} =
    File::Spec->catfile('lib', @parts, $filepart);

lib/Module/Starter/Smart.pm  view on Meta::CPAN

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
 
sub _create_t {
    my $self     = shift;
    my $testdir  = @_ == 2 ? 't' : shift;
    my $filename = shift;
    my $content  = shift;
 
    my @dirparts = ( $self->{basedir}, $testdir );
    my $tdir = File::Spec->catdir( @dirparts );
    if ( not -d $tdir ) {
        local @ARGV = $tdir;
        mkpath();
        $self->progress( "Created $tdir" );
    }
 
    my $fname = File::Spec->catfile( @dirparts, $filename );
 
    if (-e $fname) {
        $self->progress( "Skipped $fname" );
    } else {
        open( my $fh, ">", $fname ) or die "Can't create $fname: $!\n";