| line |
true |
false |
branch |
|
75
|
0 |
11 |
@_ > 1 && ($_[1] ^^ $_[0]->quote_identifiers) ? : |
|
81
|
0 |
11 |
@_ > 1 && ($_[1] ^^ $_[0]->quote_identifiers) ? : |
|
228
|
50 |
4 |
if (my $filename = $self->filename) |
|
233
|
0 |
50 |
ref $filename eq 'ARRAY' ? : |
|
236
|
0 |
50 |
unless open my $fh, "<", $file |
|
241
|
0 |
50 |
unless close $fh |
|
272
|
52 |
67 |
if (@_ == 1) { } |
|
275
|
0 |
52 |
if (&SQL::Translator::isa($_[0], 'HASH')) { } |
|
|
0 |
52 |
elsif (&SQL::Translator::isa($_[0], 'GLOB')) { } |
|
|
19 |
33 |
elsif (&SQL::Translator::isa($_[0], 'SCALAR')) { } |
|
|
33 |
0 |
elsif (not ref $_[0]) { } |
|
312
|
0 |
0 |
unless $self->data and $self->producer and $self->parser |
|
319
|
0 |
67 |
if @_ % 2 |
|
327
|
20 |
99 |
if (my $filename = $args->{'filename'} || $args->{'file'}) |
|
331
|
36 |
83 |
if (my $data = $args->{'data'} || $args->{'datasource'}) |
|
343
|
33 |
86 |
if ($parser = $args->{'parser'} || $args->{'from'}) |
|
352
|
42 |
77 |
if ($producer = $args->{'producer'} || $args->{'to'}) |
|
367
|
84 |
35 |
unless ($self->_has_schema) |
|
369
|
2 |
82 |
if ($@ or not $parser_output) |
|
370
|
0 |
2 |
$@ ? : |
|
374
|
0 |
117 |
if $self->debugging |
|
378
|
0 |
117 |
if ($self->validate) |
|
380
|
0 |
0 |
unless $schema->is_valid |
|
390
|
0 |
10 |
if $err |
|
395
|
10 |
107 |
wantarray ? : |
|
397
|
10 |
107 |
if ($wantarray) { } |
|
403
|
0 |
117 |
if ($@ or not $producer_output || @producer_output) |
|
409
|
10 |
107 |
wantarray ? : |
|
433
|
3 |
209 |
if (@_) |
|
438
|
0 |
3 |
unless (defined $_[0]) |
|
443
|
1 |
2 |
&SQL::Translator::isa($_[0], 'HASH') ? : |
|
462
|
530 |
387 |
unless @_ |
|
469
|
228 |
159 |
if (&SQL::Translator::isa($tool, 'CODE')) { } |
|
480
|
156 |
3 |
unless $tool =~ /::/ |
|
483
|
1 |
158 |
unless ($code) |
|
484
|
1 |
0 |
if (__PACKAGE__->error =~ /Can't find module/) { } |
|
487
|
1 |
0 |
unless $code |
|
488
|
0 |
1 |
unless $code |
|
498
|
0 |
159 |
$sub eq 'CODE' ? : |
|
507
|
1 |
386 |
if @_ |
|
524
|
0 |
8 |
unless load("SQL::Translator::$uctype") |
|
530
|
40 |
24 |
unless -d $dir |
|
542
|
576 |
96 |
if (-f $_ and /\.pm$/) |
|
551
|
576 |
0 |
if ($cur_dir =~ /$base_dir(.*)/) { } |
|
559
|
360 |
792 |
unless $_ |
|
587
|
35 |
138 |
if $name =~ /::/ |
|
588
|
165 |
8 |
if @_ |
|
591
|
162 |
35 |
$_ ? : |
|
596
|
133 |
64 |
if $INC{$file} |
|
599
|
25 |
39 |
if $@ =~ /Can't locate $file in \@INC/ |
|
600
|
39 |
0 |
unless $@ |
|
601
|
0 |
39 |
if $@ and not $@ =~ /"SQL::Translator::Producer" is not exported/ |
|
620
|
164 |
1 |
if (my $module = load($module, @path)) |
|
622
|
159 |
5 |
wantarray ? : |
|
654
|
12 |
12 |
if (ref $args[0] eq 'CODE') { } |
|
|
4 |
8 |
elsif (not exists $self->{$field}) { } |
|
660
|
16 |
8 |
@args ? : |