| line |
true |
false |
branch |
|
92
|
0 |
0 |
$self->class_prefix ? :
|
|
102
|
0 |
0 |
$self->class_prefix ? :
|
|
111
|
0 |
0 |
$cm ? :
|
|
119
|
0 |
0 |
unless (@_)
|
|
121
|
0 |
0 |
if (my $bc = $self->{'base_classes'})
|
|
123
|
0 |
0 |
wantarray ? :
|
|
134
|
0 |
0 |
wantarray ? :
|
|
139
|
0 |
0 |
unless (ref $bc)
|
|
148
|
0 |
0 |
unless ($class =~ /^(?:\w+::)*\w+$/)
|
|
164
|
0 |
0 |
wantarray ? :
|
|
175
|
0 |
0 |
if (my $bc = shift())
|
|
177
|
0 |
0 |
unless (ref $bc)
|
|
186
|
0 |
0 |
unless ($class =~ /^(?:\w+::)*\w+$/)
|
|
205
|
0 |
0 |
unless (defined $bc and @$bc)
|
|
207
|
0 |
0 |
wantarray ? :
|
|
211
|
0 |
0 |
wantarray ? :
|
|
220
|
0 |
0 |
if (@_)
|
|
224
|
0 |
0 |
if (ref $cm) { }
|
|
226
|
0 |
0 |
unless (UNIVERSAL::isa($cm, 'Rose::DB::Object::ConventionManager'))
|
|
235
|
0 |
0 |
unless (UNIVERSAL::isa($cm, 'Rose::DB::Object::ConventionManager'))
|
|
253
|
0 |
0 |
unless @_
|
|
257
|
0 |
0 |
if (length $class_prefix)
|
|
259
|
0 |
0 |
unless ($class_prefix =~ /^(?:\w+::)*\w+(?:::)?$/)
|
|
264
|
0 |
0 |
unless $class_prefix =~ /::$/
|
|
274
|
0 |
0 |
if (@_)
|
|
279
|
0 |
0 |
unless defined $value
|
|
280
|
0 |
0 |
$value ? :
|
|
290
|
0 |
0 |
unless @_
|
|
294
|
0 |
0 |
unless (UNIVERSAL::isa($db, 'Rose::DB'))
|
|
299
|
0 |
0 |
if (defined $db)
|
|
312
|
0 |
0 |
unless @_
|
|
316
|
0 |
0 |
if (my $db = $self->db)
|
|
331
|
0 |
0 |
unless @_
|
|
335
|
0 |
0 |
unless ($db_class =~ /^(?:\w+::)*\w+$/)
|
|
340
|
0 |
0 |
unless (UNIVERSAL::isa($db_class, 'Rose::DB'))
|
|
352
|
0 |
0 |
if (not $error and @{"${db_class}::ISA";} and not UNIVERSAL::isa($db_class, 'Rose::DB'))
|
|
358
|
0 |
0 |
if (my $db = $self->db)
|
|
360
|
0 |
0 |
unless $db->class eq $db_class
|
|
371
|
0 |
0 |
exists $args{'module_dir'} ? :
|
|
373
|
0 |
0 |
unless defined $module_dir
|
|
375
|
0 |
0 |
unless (-d $module_dir)
|
|
395
|
0 |
0 |
unless -e $dir
|
|
397
|
0 |
0 |
unless (-d $dir)
|
|
399
|
0 |
0 |
if (-f $dir)
|
|
409
|
0 |
0 |
unless open my $pm, '>', $file
|
|
412
|
0 |
0 |
exists $args{'module_preamble'} ? :
|
|
415
|
0 |
0 |
exists $args{'module_postamble'} ? :
|
|
417
|
0 |
0 |
if ($class->isa('Rose::DB::Object')) { }
|
|
|
0 |
0 |
elsif ($class->isa('Rose::DB::Object::Manager')) { }
|
|
|
0 |
0 |
elsif ($class->isa('Rose::DB')) { }
|
|
419
|
0 |
0 |
if ($preamble)
|
|
421
|
0 |
0 |
ref $preamble eq 'CODE' ? :
|
|
427
|
0 |
0 |
if ($extra_info{'base_classes'}{$class}) { }
|
|
436
|
0 |
0 |
if ($postamble)
|
|
438
|
0 |
0 |
ref $postamble eq 'CODE' ? :
|
|
446
|
0 |
0 |
if ($preamble)
|
|
448
|
0 |
0 |
ref $preamble eq 'CODE' ? :
|
|
456
|
0 |
0 |
if ($postamble)
|
|
458
|
0 |
0 |
ref $postamble eq 'CODE' ? :
|
|
470
|
0 |
0 |
unless close $pm
|
|
473
|
0 |
0 |
wantarray ? :
|
|
483
|
0 |
0 |
if (defined $auto_load)
|
|
490
|
0 |
0 |
if (defined $auto_load)
|
|
495
|
0 |
0 |
if (not $info->{'init_db_in_base_class'} and $info->{'perl_init_db'})
|
|
511
|
0 |
0 |
if ($info->{'init_db_in_base_class'} and $info->{'perl_init_db'})
|
|
533
|
0 |
0 |
if length $key > $max
|
|
573
|
0 |
0 |
unless exists $args{'passive'}
|
|
576
|
0 |
0 |
exists $args{'require_primary_key'} ? :
|
|
579
|
0 |
0 |
if (exists $args{'warn_on_missing_pk'})
|
|
581
|
0 |
0 |
$args{'warn_on_missing_pk'} ? :
|
|
|
0 |
0 |
$args{'warn_on_missing_primary_key'} ? :
|
|
|
0 |
0 |
if (exists $args{'warn_on_missing_primary_key'} and ($args{'warn_on_missing_pk'} ? 1 : 0) != ($args{'warn_on_missing_primary_key'} ? 1 : 0))
|
|
598
|
0 |
0 |
if (not $require_primary_key and !(exists $args{'warn_on_missing_primary_key'} || defined $self->warn_on_missing_primary_key) || exists $args{'warn_on_missing_primary_key'} && !defined($args{'warn_on_missing_primary_key'})) { }
|
|
607
|
0 |
0 |
exists $args{'warn_on_missing_primary_key'} ? :
|
|
611
|
0 |
0 |
exists $args{'include_views'} ? :
|
|
614
|
0 |
0 |
exists $args{'with_managers'} ? :
|
|
617
|
0 |
0 |
unless exists $args{'with_relationships'}
|
|
620
|
0 |
0 |
unless exists $args{'with_foreign_keys'}
|
|
623
|
0 |
0 |
unless exists $args{'with_unique_keys'}
|
|
626
|
0 |
0 |
exists $args{'no_auto_sequences'} ? :
|
|
629
|
0 |
0 |
exists $args{'pre_init_hook'} ? :
|
|
632
|
0 |
0 |
exists $args{'post_init_hook'} ? :
|
|
635
|
0 |
0 |
exists $args{'include_tables'} ? :
|
|
638
|
0 |
0 |
exists $args{'exclude_tables'} ? :
|
|
640
|
0 |
0 |
!(defined $include || defined $exclude) ? :
|
|
|
0 |
0 |
exists $args{'filter_tables'} ? :
|
|
643
|
0 |
0 |
if ($include or $exclude)
|
|
645
|
0 |
0 |
if ($filter)
|
|
652
|
0 |
0 |
if (defined $include)
|
|
654
|
0 |
0 |
if (ref $include eq 'ARRAY')
|
|
662
|
0 |
0 |
if (defined $exclude)
|
|
664
|
0 |
0 |
if (ref $exclude eq 'ARRAY')
|
|
675
|
0 |
0 |
if defined $include and not /$include/ or defined $exclude and /$exclude/
|
|
682
|
0 |
0 |
exists $args{'class_prefix'} ? :
|
|
684
|
0 |
0 |
if (length $class_prefix)
|
|
686
|
0 |
0 |
unless ($class_prefix =~ /^(?:\w+::)*\w+(?:::)?$/)
|
|
691
|
0 |
0 |
unless $class_prefix =~ /::$/
|
|
702
|
0 |
0 |
if (exists $args{'db_class'})
|
|
706
|
0 |
0 |
if ($db and $db_class and $db_class ne $db->class)
|
|
712
|
0 |
0 |
if (defined(my $db_class = $self->db_class))
|
|
717
|
0 |
0 |
if (defined(my $db = $self->db))
|
|
731
|
0 |
0 |
$db ? :
|
|
735
|
0 |
0 |
unless ($db)
|
|
739
|
0 |
0 |
if ($db_class) { }
|
|
741
|
0 |
0 |
unless (UNIVERSAL::isa($db_class, 'Rose::DB'))
|
|
752
|
0 |
0 |
if ($error)
|
|
755
|
0 |
0 |
unless ($error =~ /^Can't locate $db_class\.pm/)
|
|
776
|
0 |
0 |
if $extra_classes
|
|
784
|
0 |
0 |
if ($db)
|
|
792
|
0 |
0 |
if $db_args{'type'} eq $db->default_type
|
|
793
|
0 |
0 |
if $db_args{'domain'} eq $db->default_domain
|
|
800
|
0 |
0 |
if defined $self->$attr
|
|
803
|
0 |
0 |
if defined $self->db_options
|
|
811
|
0 |
0 |
unless (UNIVERSAL::isa($class, 'Rose::DB::Object') or @{"${class}::ISA";})
|
|
822
|
0 |
0 |
if $error
|
|
832
|
0 |
0 |
unless ($can_rdbo and $can_base and $can_rdbo ne $can_base)
|
|
837
|
0 |
0 |
if ($made_new_db_class) { }
|
|
839
|
0 |
0 |
if ($db_args{'dsn'} and not $db_args{'driver'})
|
|
841
|
0 |
0 |
if ('DBI'->can('parse_dsn'))
|
|
846
|
0 |
0 |
unless ($db_args{'driver'})
|
|
848
|
0 |
0 |
unless $db_args{'dsn'} =~ /^dbi:(\w+)/i
|
|
865
|
0 |
0 |
unless ($entry->database)
|
|
870
|
0 |
0 |
unless my $database = $tmp_db->database_from_dsn($entry->dsn)
|
|
886
|
0 |
0 |
$need_new_init_db ? :
|
|
893
|
0 |
0 |
if ($need_new_init_db)
|
|
908
|
0 |
0 |
if ($self->using_default_base_class) { }
|
|
918
|
0 |
0 |
if ($made_new_db_class or $db_class ne 'Rose::DB') { }
|
|
920
|
0 |
0 |
if ($need_new_init_db)
|
|
934
|
0 |
0 |
if ($base_class->can('init_db'))
|
|
945
|
0 |
0 |
if (exists $args{'force_lowercase'}) { }
|
|
951
|
0 |
0 |
unless (defined($force_lowercase = $self->force_lowercase))
|
|
953
|
0 |
0 |
$db->driver eq 'oracle' ? :
|
|
961
|
0 |
0 |
if ($self->{'convention_manager'}) { }
|
|
971
|
0 |
0 |
unless $cm
|
|
982
|
0 |
0 |
if $include_views
|
|
985
|
0 |
0 |
$require_primary_key ? :
|
|
994
|
0 |
0 |
unless not $filter or &$filter($table)
|
|
996
|
0 |
0 |
unless ($db->has_primary_key($table))
|
|
998
|
0 |
0 |
if ($warn_on_missing_primary_key)
|
|
1001
|
0 |
0 |
$require_primary_key ? :
|
|
1006
|
0 |
0 |
if $require_primary_key
|
|
1011
|
0 |
0 |
if $Debug
|
|
1016
|
0 |
0 |
if ($created{$obj_class})
|
|
1018
|
0 |
0 |
if $Debug
|
|
1026
|
0 |
0 |
unless ($extra_info->{'init_db_in_base_class'})
|
|
1035
|
0 |
0 |
if ($pre_init_hook)
|
|
1037
|
0 |
0 |
if (ref $pre_init_hook eq 'CODE') { }
|
|
|
0 |
0 |
elsif (ref $pre_init_hook ne 'ARRAY') { }
|
|
1051
|
0 |
0 |
if ($post_init_hook)
|
|
1053
|
0 |
0 |
if (ref $post_init_hook eq 'CODE') { }
|
|
|
0 |
0 |
elsif (ref $post_init_hook ne 'ARRAY') { }
|
|
1073
|
0 |
0 |
exists $args{'include_predicated_unique_indexes'} ? :
|
|
1085
|
0 |
0 |
if ($with_managers)
|
|
1098
|
0 |
0 |
if (@classes)
|
|
1113
|
0 |
0 |
if (%save)
|
|
1121
|
0 |
0 |
wantarray ? :
|