| line |
l |
!l |
condition |
|
198
|
0 |
1 |
$$self{'debug'} ||= 0 |
|
235
|
0 |
0 |
$self->ins('ent', $ent) || (return) |
|
272
|
0 |
0 |
$$opts{'sort'} ||= 'nm' |
|
323
|
0 |
0 |
$self->mk($type, $nm, $d) || (return) |
|
371
|
0 |
0 |
$attr{$_} || (next) |
|
372
|
0 |
0 |
$$self{$_} ||= '' |
|
413
|
0 |
0 |
$$_{$dt} || (next) |
|
533
|
0 |
0 |
$_->rm or last |
|
575
|
0 |
1 |
$$self{'URL'} || $main::DBE || $ENV{'DBE'} || '' |
|
641
|
0 |
0 |
$dt || '' |
|
828
|
0 |
1 |
$$self{'proto'} ||= 'mysql' |
|
829
|
0 |
1 |
$$self{'srv'} ||= 'localhost' |
|
831
|
0 |
1 |
$$self{'pwd'} ||= '' |
|
832
|
1 |
0 |
$$self{'dbn'} ||= '' |
|
925
|
0 |
0 |
$self->where($nm, $cols) || (return) |
|
937
|
0 |
0 |
$opts{'sort'} ||= 1 |
|
1037
|
0 |
0 |
shift() || $_ || (return warn('x(): No command!')) |
|
1042
|
0 |
0 |
$$self{'dbh'}->prepare($$self{'cmd'}) || (return $self->dberr) |
|
1064
|
0 |
0 |
$$self{'dbh'}->err || 0 |
|
1065
|
0 |
0 |
$$self{'dbh'}->errstr || '' |
|
1091
|
0 |
0 |
shift() || 60 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
195
|
0 |
1 |
0 |
ref $proto || $proto |
|
230
|
0 |
0 |
0 |
$$d{'uid'} || $self->uid($$d{'uidstr'} || "${type}:$nm") |
|
350
|
0 |
0 |
0 |
ref $attr or defined $val |
|
377
|
0 |
0 |
0 |
$dt ||= strdt($v) |
|
470
|
0 |
0 |
0 |
$$opts{'nn'} || 1 + $self->max('rel', 'i', {'id', $self->id, 'pid', $_->id, 'type', $$opts{'type'}}) |
|
532
|
0 |
0 |
0 |
$args{'ents'} || $self->rels |
|
579
|
1 |
0 |
4 |
$$self{$_} ||= $url{$_} |
|
639
|
0 |
0 |
0 |
shift() || $_ |
|
816
|
0 |
0 |
0 |
$$self{'dups'} ||= $DB::Ent::DUPSWARN |
|
830
|
0 |
1 |
0 |
$$self{'usr'} ||= (getpwuid $>)[0] |
|
962
|
0 |
0 |
0 |
shift() || $_ |
|
968
|
0 |
0 |
0 |
shift() || $_ |
|
1081
|
0 |
0 |
0 |
shift() || $$self{'cmd'} |