| blib/lib/Crypt/Eksblowfish/Family.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 2 | 3 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 184 | 10 | 10 | 0 | $$self{'as_class'} ||= do { my $pkg = genpkg('Crypt::Eksblowfish::Family::'); no strict 'refs'; @{"${pkg}::ISA";} = ref $self; *{"${pkg}::new_family";} = sub { croak($_[0] . '->new_family called'); } ; *{"${pkg}::cost";} = sub { $self->cost; } ; *{"${pkg}::salt";} = sub { $self->salt; } ; *{"${pkg}::new";} = sub { shift(); $self->new(@_); } ; *{"${pkg}::as_class";} = sub { $pkg; } ; $pkg } |