@@ -74,8 +74,8 @@ option skel => (
74
74
format_doc => ' directory' ,
75
75
required => 0,
76
76
default => sub{
77
- my $self = shift ;
78
- path( $self -> parent_command-> _dist_dir, ' skel' );
77
+ my $self = shift ;
78
+ path( $self -> parent_command-> _dist_dir, ' skel' );
79
79
},
80
80
);
81
81
@@ -95,7 +95,7 @@ option git => (
95
95
default => 0,
96
96
);
97
97
98
- option remote => (
98
+ option remote => (
99
99
is => ' ro' ,
100
100
short => ' r' ,
101
101
doc => ' URI for git repository (implies -g)' ,
@@ -108,8 +108,8 @@ option remote => (
108
108
sub BUILD {
109
109
my ( $self , $args ) = @_ ;
110
110
111
- $self -> osprey_usage( 1, qq{
112
- Invalid application name. Application names must not contain single colons,
111
+ $self -> osprey_usage( 1, qq{
112
+ Invalid application name. Application names must not contain single colons,
113
113
dots, hyphens or start with a number.
114
114
} ) unless is_module_name( $self -> application );
115
115
@@ -183,7 +183,7 @@ sub _check_git {
183
183
184
184
WARNING: Couldn't initialize a git repo despite being asked to do so.
185
185
186
- To resolve this, cd to your application directory and run the following
186
+ To resolve this, cd to your application directory and run the following
187
187
commands:
188
188
189
189
git init
@@ -200,13 +200,13 @@ commands:
200
200
path( $gitignore )-> copy( $app_path );
201
201
202
202
chdir File::Spec-> rel2abs( $app_path ) or die " Can't cd to $app_path : $! " ;
203
- if ( _run_shell_cmd( ' git' , ' init' ) != 0 or
204
- _run_shell_cmd( ' git' , ' add' , ' .' ) != 0 or
203
+ if ( _run_shell_cmd( ' git' , ' init' ) != 0 or
204
+ _run_shell_cmd( ' git' , ' add' , ' .' ) != 0 or
205
205
_run_shell_cmd( ' git' , ' commit' , " -m 'Initial commit of $app_name by Dancer2'" ) != 0 ) {
206
206
print $git_error ;
207
207
}
208
208
else {
209
- if ( $self -> remote &&
209
+ if ( $self -> remote &&
210
210
_run_shell_cmd( ' git' , ' remote' , ' add' , ' origin' , $self -> remote ) != 0 ) {
211
211
print $git_error ;
212
212
print " git remote add origin " . $self -> remote . " \n " ;
@@ -290,7 +290,7 @@ sub _build_file_list {
290
290
warn " File not found: $file " unless $file -> exists ; # Paranoia
291
291
next if $file -> basename =~ m { ^\. git(/|$) } ;
292
292
next if $file -> is_dir;
293
-
293
+
294
294
my $filename = $file -> relative( $from );
295
295
push @result , [ $file , path( $to , $filename )];
296
296
}
@@ -315,7 +315,7 @@ sub _copy_templates {
315
315
$to_dir -> mkpath;
316
316
}
317
317
318
- # Skeleton files whose names are prefixed with + need to be executable, but we must strip
318
+ # Skeleton files whose names are prefixed with + need to be executable, but we must strip
319
319
# that from the name when copying them
320
320
my $to_file = path( $to )-> basename;
321
321
my $ex = ( $to_file =~ s / ^\+ // );
@@ -378,7 +378,7 @@ sub _process_template {
378
378
return $engine -> render( \$template , $tokens );
379
379
}
380
380
381
- # These are good candidates to move to Dancer2::CLI if other commands
381
+ # These are good candidates to move to Dancer2::CLI if other commands
382
382
# need them later.
383
383
sub _get_app_path {
384
384
my ( $self , $path , $appname ) = @_ ;
@@ -431,8 +431,8 @@ sub _run_shell_cmd {
431
431
432
432
my $exit_status = try {
433
433
my $pid = IPC::Open3::open3(
434
- my $stdin ,
435
- my $stdout ,
434
+ my $stdin ,
435
+ my $stdout ,
436
436
my $stderr = Symbol::gensym,
437
437
@cmds ,
438
438
);
0 commit comments