| blib/lib/File/Stubb.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 44 | 36.3 |
| line | true | false | branch |
|---|---|---|---|
| 82 | 0 | 6 | unless ($k =~ /^[a-zA-Z0-9_]+$/u) |
| 107 | 11 | 0 | if (not $str =~ m([/\\])u and defined $p) { } |
| 0 | 0 | elsif (not $no_path and -e $str) { } | |
| 138 | 9 | 0 | if ($self->{'Verbose'} and $self->{'Files'}[0] ne "-") |
| 167 | 0 | 0 | unless ($have_basic or $have_perl or $have_shell) |
| 172 | 0 | 0 | if ($have_basic) |
| 177 | 0 | 0 | if $have_perl or $have_shell |
| 180 | 0 | 0 | if ($have_perl) |
| 185 | 0 | 0 | if $have_shell |
| 188 | 0 | 0 | if ($have_shell) |
| 247 | 0 | 11 | unless &GetOptions("template-dir|d=s", $self->{'TempDir'}, "template|t=s", sub { $self->{'Mode'} = 1; $temp = $_[1]; } , "substitute|s=s", $subst, "list|l", sub { $self->{'Mode'} = 2; } , "quiet|q", sub { $self->{'Verbose'} = 0; } , "hidden|a", sub { $self->{'Hidden'} = 1; } , "no-hidden|A", sub { $self->{'Hidden'} = 0; } , "follow-symlinks|w", sub { $self->{'FollowLinks'} = 1; } , "no-follow-symlinks|W", sub { $self->{'FollowLinks'} = 0; } , "copy-perms|c", sub { $self->{'CopyPerms'} = 1; } , "no-copy-perms|C", sub { $self->{'CopyPerms'} = 0; } , "restricted|R", sub { $self->{'Restricted'} = 1; } , "no-defaults|U", sub { $self->{'Defaults'} = 0; } , "no-config|I", sub { $self->{'IgnoreConf'} = 1; } , "help|h", sub { print $HELP; exit 0; } , "version|v", sub { print $VER_MSG; exit 0; } ) |
| 249 | 11 | 0 | if (exists $ENV{'STUBB_TEMPLATES'}) |
| 255 | 10 | 1 | if ($self->{'Mode'} == 0) { } |
| 1 | 0 | elsif ($self->{'Mode'} == 1) { } | |
| 0 | 0 | elsif ($self->{'Mode'} == 2) { } | |
| 258 | 9 | 1 | if (defined $temp) { } |
| 264 | 0 | 1 | if ($temp eq "") |
| 271 | 0 | 1 | unless @ARGV |
| 274 | 0 | 1 | if (@{$self->{'Files'};} > 1 and grep {$_ eq "-";} @{$$self{"Files"};}) |
| 283 | 2 | 9 | if (@$subst) |
| 298 | 9 | 0 | if ($self->{'Mode'} == 0 or $self->{'Mode'} == 1) { } |
| 0 | 0 | elsif ($self->{'Mode'} == 2) { } |