blib/lib/App/bif.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 37 | 96 | 38.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
588 | 2 | 0 | 0 | exists $opts->{'uuid'} and $opts->{'uuid'} |
787 | 0 | 0 | 0 | $data and $kind |
0 | 0 | 0 | $data and $kind and $kind ne $data->{'kind'} | |
793 | 0 | 0 | 0 | $@ and $@->isa('Bif::Error::AmbiguousPath') |
861 | 42 | 41 | 0 | $ref and $args->{'save'} |
918 | 42 | 41 | 0 | $args->{'restore'} and my $saved = $self->work_buffer |
1022 | 0 | 164 | 0 | ref $x eq 'HASH' and exists $x->{'_delta'} |
0 | 41 | 123 | ref $x eq 'HASH' and exists $x->{'_delta'} and $x->{'_delta'} =~ /^new_/ | |
1123 | 3 | 0 | 5 | $self->{'_bif_ok_msg'} and not ref $self->{'_bif_ok_msg'} |
line | l | !l | condition |
---|---|---|---|
157 | 39 | 0 | 'Config::Tiny'->read($file, 'utf8') || (return $self->err('ConfigNotFound', $file . ' ' . 'Config::Tiny'->errstr)) |
199 | 0 | 0 | 'Config::Tiny'->read($file, 'utf8') || (return $self->err('ConfigNotFound', $file . ' ' . 'Config::Tiny'->errstr)) |
635 | 0 | 1 | shift() || 0 |
671 | 0 | 0 | $args{'txt'} //= "\n" |
796 | 0 | 0 | $kind ||= 'node' |
1108 | 43 | 91 | shift() || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
120 | 0 | 43 | 0 | $opts->{'no_color'} || !-t(STDOUT) |
156 | 43 | 0 | $ENV{'ANSI_COLORS_DISABLED'} //= $opts->{'no_color'} || !-t(STDOUT) | |
125 | 0 | 0 | 199 | $self->debug // $opts->{'debug'} |
185 | 3 | 0 | 1 | $self->find_repo('.bif') || $self->err('RepoNotFound', 'directory not found: .bif') |
386 | 4 | 0 | 145 | $ref->{$_} //= Term::ANSIColor::color($_) |
542 | 0 | 1 | 0 | $pager or $self->no_pager |
584 | 2 | 0 | 0 | shift() // Carp::confess('uuid2id needs defined') |
604 | 0 | 0 | 0 | shift() // Carp::confess('path must be defined') |
710 | 0 | 0 | 0 | $pager or $self->opts->{'debug'} |
723 | 0 | 0 | 0 | shift() // Carp::croak('get_change needs defined') |
764 | 2 | 0 | 0 | shift() // Carp::confess('get_node needs defined') |
970 | 0 | 42 | 0 | $vals{'id'} ||= $dbw->nextval('changes') |
983 | 41 | 0 | 1 | $vals{'author'} //= $author |
984 | 41 | 0 | 1 | $vals{'author_contact'} //= $author_contact |
985 | 41 | 0 | 1 | $vals{'author_contact_method'} //= $author_contact_method |
986 | 41 | 0 | 1 | $vals{'author_shortname'} //= $author_shortname |
1003 | 41 | 0 | 0 | shift() || $self->db |
1010 | 41 | 0 | 0 | $db->uchangeset_v1($id) || Carp::croak("invalid change.id: $id") |
1107 | 134 | 0 | 0 | shift() || Carp::confess('missing type') |