| line |
true |
false |
branch |
|
37
|
0 |
0 |
unless defined $self
|
|
48
|
0 |
0 |
unless (defined $value or $opts{'no_defaults'})
|
|
49
|
0 |
0 |
if (defined $$self{$key . '_defaults'}) { }
|
|
56
|
0 |
0 |
if (defined $id)
|
|
61
|
0 |
0 |
if (defined $id and defined $backup_key)
|
|
62
|
0 |
0 |
if (defined(my $type = $_key_to_data_identifier{$backup_key})) { }
|
|
|
0 |
0 |
elsif ($backup_key eq 'uuid' and $key eq 'uri') { }
|
|
|
0 |
0 |
elsif ($backup_key eq 'oid' and $key eq 'uri') { }
|
|
|
0 |
0 |
elsif ($backup_key eq 'small-identifier' and $key eq 'uri') { }
|
|
65
|
0 |
0 |
if (defined $func)
|
|
80
|
0 |
0 |
if defined $value
|
|
84
|
0 |
0 |
if (defined $value)
|
|
88
|
0 |
0 |
if ($as eq $key or $as eq 'raw') { }
|
|
|
0 |
0 |
elsif ($as eq 'URI' and $curtype eq 'uri') { }
|
|
|
0 |
0 |
elsif ($as eq 'Data::Identifier' and defined(my $type = $_key_to_data_identifier{$curtype})) { }
|
|
99
|
0 |
0 |
if exists $opts{'default'}
|
|
134
|
0 |
0 |
if defined $value
|
|
136
|
0 |
0 |
if defined $value
|
|
138
|
0 |
0 |
unless ($val_no_defaults)
|
|
145
|
0 |
0 |
if defined $value
|
|
147
|
0 |
0 |
if defined $value
|
|
150
|
0 |
0 |
if $has_default
|
|
159
|
0 |
0 |
unless (defined $self->{'displayname'})
|
|
174
|
0 |
0 |
unless scalar @{$relation;}
|
|
181
|
0 |
0 |
if defined $name and length $name
|
|
191
|
0 |
0 |
if defined $name and length $name
|
|
194
|
0 |
0 |
unless ($opts{'no_defaults'} or defined $self->{'displayname_defaults'})
|
|
204
|
0 |
0 |
if defined $name and length $name
|
|
207
|
0 |
0 |
if defined $name and length $name
|
|
211
|
0 |
0 |
if defined $self->{'displayname'}
|
|
212
|
0 |
0 |
if exists $opts{'default'}
|
|
213
|
0 |
0 |
unless ($opts{'no_defaults'})
|
|
214
|
0 |
0 |
if defined $self->{'displayname_defaults'}
|
|
224
|
0 |
0 |
if (exists $self->{'displaycolour'}) { }
|
|
225
|
0 |
0 |
if defined $self->{'displaycolour'}
|
|
226
|
0 |
0 |
if exists $opts{'default'}
|
|
240
|
0 |
0 |
unless scalar @{$relation;}
|
|
244
|
0 |
0 |
if defined $colour
|
|
253
|
0 |
0 |
unless scalar @{$relation;}
|
|
257
|
0 |
0 |
if defined $colour
|
|
260
|
0 |
0 |
if defined $self->{'displaycolour'}
|
|
261
|
0 |
0 |
if exists $opts{'default'}
|
|
269
|
0 |
0 |
if (exists $self->{'icontext'}) { }
|
|
270
|
0 |
0 |
if defined $self->{'icontext'}
|
|
271
|
0 |
0 |
if exists $opts{'default'}
|
|
284
|
0 |
0 |
unless scalar @{$relation;}
|
|
288
|
0 |
0 |
if defined $icontext and length $icontext
|
|
293
|
0 |
0 |
if (defined(my $tagpool_type_icontext = eval {
|
|
295
|
0 |
0 |
if (scalar @{$relation;})
|
|
300
|
0 |
0 |
if defined $icontext and length $icontext
|
|
305
|
0 |
0 |
if defined $self->{'icontext'}
|
|
306
|
0 |
0 |
if exists $opts{'default'}
|
|
314
|
0 |
0 |
if (exists $self->{'description'}) { }
|
|
315
|
0 |
0 |
if defined $self->{'description'}
|
|
316
|
0 |
0 |
if exists $opts{'default'}
|
|
330
|
0 |
0 |
if defined $self->{'description'}
|
|
333
|
0 |
0 |
if defined $self->{'description'}
|
|
334
|
0 |
0 |
if exists $opts{'default'}
|
|
350
|
0 |
0 |
if ($which eq 'roles') { }
|
|
|
0 |
0 |
elsif ($which eq 'flags') { }
|
|
388
|
0 |
0 |
unless scalar @strings
|
|
392
|
0 |
0 |
if ($policy eq 'upper') { }
|
|
|
0 |
0 |
elsif ($policy eq 'lower') { }
|
|
|
0 |
0 |
elsif ($policy eq 'space') { }
|
|
|
0 |
0 |
elsif ($policy eq 'dash') { }
|
|
|
0 |
0 |
elsif ($policy eq 'nospace') { }
|
|
|
0 |
0 |
elsif ($policy eq 'noupper') { }
|
|
|
0 |
0 |
elsif ($policy eq 'long' or $policy eq 'short') { }
|
|
|
0 |
0 |
elsif ($policy eq 'british') { }
|
|
393
|
0 |
0 |
$first =~ /\p{upper}/u ? :
|
|
395
|
0 |
0 |
!($first =~ /\p{upper}/u) ? :
|
|
397
|
0 |
0 |
if ($first =~ /\s/u) { }
|
|
|
0 |
0 |
elsif ($first =~ /[-_]/u) { }
|
|
403
|
0 |
0 |
if ($first =~ /[-_]/u) { }
|
|
|
0 |
0 |
elsif ($first =~ /\s/u) { }
|
|
409
|
0 |
0 |
if ($first =~ /\s/u)
|
|
413
|
0 |
0 |
if ($first =~ /\p{upper}/u)
|
|
418
|
0 |
0 |
if $first eq $second
|
|
421
|
0 |
0 |
if $policy eq "short"
|
|
422
|
0 |
0 |
if ($lf > $ls)
|
|
429
|
0 |
0 |
if $first eq $second
|
|
430
|
0 |
0 |
if (fc $first =~ tr/z/s/r eq fc $second =~ tr/z/s/r)
|
|
433
|
0 |
0 |
if ($fx < $sx)
|
|
438
|
0 |
0 |
if (fc(($first . ' ') =~ s/er\b/re/gru) eq fc(($second . ' ') =~ s/er\b/re/gru))
|
|
441
|
0 |
0 |
if ($fx < $sx)
|
|
446
|
0 |
0 |
if (fc $first =~ s/ou/o/gru eq fc $second =~ s/ou/o/gru)
|
|
449
|
0 |
0 |
if ($fx > $sx) { }
|
|
|
0 |
0 |
elsif ($fx < $sx) { }
|
|
457
|
0 |
0 |
if (fc $first =~ s/gray/grey/giru eq fc $second)
|
|
469
|
0 |
0 |
unless $res{$b} <=> $res{$a}
|
|
475
|
0 |
0 |
if ($attribute =~ /^display/u or $attribute eq "icontext")
|
|
478
|
0 |
0 |
if defined $func
|
|
483
|
0 |
0 |
if (exists $opts{'set'})
|
|
487
|
0 |
0 |
unless (exists $self->{'attribute'}{$attribute})
|