| line |
true |
false |
branch |
|
73
|
0 |
10 |
@_ > 1 && ($_[1] xor $_[0]->quote_identifiers) ? : |
|
79
|
0 |
10 |
@_ > 1 && ($_[1] xor $_[0]->quote_identifiers) ? : |
|
222
|
50 |
4 |
if (my $filename = $self->filename) |
|
227
|
0 |
50 |
ref $filename eq 'ARRAY' ? : |
|
230
|
0 |
50 |
unless open my $fh, '<', $file |
|
235
|
0 |
50 |
unless close $fh |
|
266
|
49 |
65 |
if (@_ == 1) { } |
|
268
|
0 |
49 |
if (&isa($_[0], 'HASH')) { } |
|
|
0 |
49 |
elsif (&isa($_[0], 'GLOB')) { } |
|
|
16 |
33 |
elsif (&isa($_[0], 'SCALAR')) { } |
|
|
33 |
0 |
elsif (not ref $_[0]) { } |
|
302
|
0 |
0 |
unless $self->data and $self->producer and $self->parser |
|
309
|
0 |
65 |
if @_ % 2 |
|
317
|
20 |
94 |
if (my $filename = $args->{'filename'} || $args->{'file'}) |
|
321
|
34 |
80 |
if (my $data = $args->{'data'} || $args->{'datasource'}) |
|
333
|
32 |
82 |
if ($parser = $args->{'parser'} || $args->{'from'}) |
|
342
|
40 |
74 |
if ($producer = $args->{'producer'} || $args->{'to'}) |
|
357
|
81 |
33 |
unless ($self->_has_schema) |
|
359
|
2 |
79 |
if ($@ or not $parser_output) |
|
360
|
0 |
2 |
$@ ? : |
|
365
|
0 |
112 |
if $self->debugging |
|
368
|
0 |
112 |
if ($self->validate) |
|
370
|
0 |
0 |
unless $schema->is_valid |
|
380
|
0 |
10 |
if $err |
|
385
|
10 |
102 |
wantarray ? : |
|
387
|
10 |
102 |
if ($wantarray) { } |
|
393
|
0 |
112 |
if ($@ or not $producer_output || @producer_output) |
|
399
|
10 |
102 |
wantarray ? : |
|
424
|
3 |
202 |
if (@_) |
|
428
|
0 |
3 |
unless (defined $_[0]) |
|
433
|
1 |
2 |
&isa($_[0], 'HASH') ? : |
|
452
|
500 |
368 |
unless @_ |
|
459
|
218 |
150 |
if (&isa($tool, 'CODE')) { } |
|
470
|
149 |
1 |
unless $tool =~ /::/ |
|
473
|
1 |
149 |
unless ($code) |
|
474
|
1 |
0 |
if ('SQL::Translator'->error =~ /Can't find module/) { } |
|
476
|
1 |
0 |
unless $code |
|
477
|
0 |
1 |
unless $code |
|
488
|
0 |
150 |
$sub eq 'CODE' ? : |
|
497
|
1 |
367 |
if @_ |
|
514
|
0 |
8 |
unless load("SQL::Translator::$uctype") |
|
520
|
64 |
24 |
unless -d $dir |
|
532
|
576 |
96 |
if (-f $_ and /\.pm$/) |
|
541
|
576 |
0 |
if ($cur_dir =~ /$base_dir(.*)/) { } |
|
550
|
360 |
792 |
unless $_ |
|
578
|
33 |
131 |
if $name =~ /::/ |
|
579
|
156 |
8 |
if @_ |
|
582
|
155 |
33 |
$_ ? : |
|
585
|
126 |
62 |
if $INC{$file} |
|
588
|
25 |
37 |
if $@ =~ /Can't locate $file in \@INC/ |
|
589
|
37 |
0 |
unless $@ |
|
590
|
0 |
37 |
if $@ and not $@ =~ /"SQL::Translator::Producer" is not exported/ |
|
609
|
155 |
1 |
if (my $module = load($module, @path)) |
|
611
|
150 |
5 |
wantarray ? : |
|
643
|
12 |
12 |
if (ref $args[0] eq 'CODE') { } |
|
|
4 |
8 |
elsif (not exists $self->{$field}) { } |
|
650
|
16 |
8 |
@args ? : |