| blib/lib/DBIx/Simple/Class/Schema.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 36 | 47 | 76.6 |
| line | l | !l | condition |
|---|---|---|---|
| 276 | 0 | 0 | carp("Can not make path $schema_path.$/$!. Quitting...") and return |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 1 | 0 | 5 | $_[1] && exists $$schemas{$_[1]} |
| 88 | 28 | 4 | 20 | $$col{'COLUMN_DEF'} and not $$col{'COLUMN_DEF'} =~ /NULL/i |
| 265 | 3 | 0 | 4 | eval "require $namespace" and $class->_MAKE_SCHEMA |
| 281 | 3 | 1 | 1 | $$args{'overwrite'} and $class->DEBUG |
| 291 | 5 | 5 | 7 | -f "$schema_path/$filename" and not $$args{'overwrite'} |
| 292 | 4 | 3 | 3 | $$args{'overwrite'} and $class->DEBUG |
| line | l | !l | condition |
|---|---|---|---|
| 30 | 2 | 2 | $$args{'table'} || '%' |
| 2 | 2 | $$args{'type'} || q['TABLE','VIEW'] | |
| 46 | 6 | 2 | $dbh->primary_key_info(undef, undef, $$t{'TABLE_NAME'})->fetchall_arrayref({})->[0]{'COLUMN_NAME'} || '' |
| 75 | 0 | 2 | $$t{'QUOTE_IDENTIFIERS'} ||= 1 |
| 93 | 34 | 18 | $$col{'COLUMN_SIZE'} // 0 |
| 101 | 4 | 4 | $$col{'DECIMAL_DIGITS'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 94 | 0 | 18 | 34 | $size >= 65535 or $size == 0 |
| 237 | 0 | 2 | 2 | $$args{'table'} eq '%' || !$$args{'table'} |
| 249 | 2 | 6 | 0 | $$args{'lib_root'} ||= $INC[0] |
| 254 | 7 | 1 | 0 | (keys %$schemas)[0] || Carp::croak('Please first call DBIx::Simple::Class::Schema->load_schema()!') |
| 282 | 5 | 0 | 0 | 'IO::File'->new("> $schema_path.pm") || Carp::croak("Could not open $schema_path.pm for writing" . $!) |