| /openbsd-src/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | dclone.t | 21 use Storable qw(dclone); 33 my $aref = dclone(\@a); 55 my $r = $foo->dclone; 65 my $cloned = dclone(dclone($hash)); 79 my $clone = dclone($empty_string_obj); 95 my $clone_array = dclone $tie{array}; 97 my $clone_hash = dclone $tie{hash};
|
| H A D | regexp.t | 48 my $c1 = dclone($q1); 49 my $c2 = dclone($q2); 60 my $c1 = dclone(eval "qr/(\\w)/"); 61 my $c2 = dclone(eval "qr/(\\w)/n"); 75 ok(!eval { dclone($re) }, "should fail to clone, even with use re 'eval'"); 78 is(ref(dclone(bless qr//, "Foo")), "Foo", "check reblessed regexps"); 90 my $qr2 = dclone($qr); 100 my $a2 = dclone([ $qr ]);
|
| H A D | recurse.t | 19 use Storable qw(freeze thaw dclone); 76 use Storable qw(dclone); 90 my $t = dclone($r->{sync}); 172 $x = dclone $real; 330 dclone $t; 336 dclone $t; 343 dclone \@t; 351 dclone $t; 366 dclone $t; 380 ok(eval { dclone \@tt; 1 },
|
| H A D | canonical.t | 20 use Storable qw(freeze thaw dclone); 93 $a3 = dclone(\%a1); 135 my $cloned = dclone(dclone($hash));
|
| H A D | tied_items.t | 25 use Storable qw(dclone); 38 $ref2 = dclone $ref; 53 $ref2 = dclone $ref;
|
| H A D | code.t | 39 use Storable qw(retrieve store nstore freeze nfreeze thaw dclone); 72 \&dclone, # XS function 122 my $new_sub = dclone($obj[2]);
|
| H A D | huge.t | 7 use Storable qw(dclone); 95 $exn = $@ if !eval { $clone = dclone($input); 1 };
|
| H A D | integer.t | 26 use Storable qw (dclone store retrieve freeze thaw nstore nfreeze); 76 my $copy = eval {dclone $data};
|
| H A D | weak.t | 32 use Storable qw (store retrieve freeze thaw nstore nfreeze dclone); 151 my $out = dclone($foo); # croaked here
|
| H A D | sig_die.t | 28 Storable::dclone({foo => "bar"});
|
| H A D | blessed.t | 388 ok(!eval { dclone($x); 1 }, "dclone of hook which throws no NL died"); 389 ok(!eval { dclone($y); 1 }, "dclone of hook which throws ref died");
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Tie-RefHash/t/ |
| H A D | storable.t | 44 foreach my $clone ( \%hash, dclone(\%hash), thaw(nfreeze(\%hash)) ){ 66 foreach my $clone ( \%only_refs, dclone(\%only_refs), thaw(nfreeze(\%only_refs)) ){
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/ |
| H A D | InterceptResult.pm | 9 use Storable qw/dclone/; 27 sub clone { blessed($_[0])->new(@{dclone($_[0])}) } 41 my $fd = dclone($blessed ? $event->facet_data : $event); 287 structure is duplicated. This uses C<dclone> from L<Storable> to achieve the
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/InterceptResult/ |
| H A D | Event.pm | 11 use Storable qw/dclone/; 125 $data{+FACET_DATA} = dclone($data{+FACET_DATA}); 155 return $self->_facet_class($name)->new(%{dclone($data)}) 161 return $self->_facet_class($name)->new(%{dclone($data->[0])}); 183 return map { $class->new(%{dclone($_)}) } @out;
|
| /openbsd-src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/ |
| H A D | meta-obj.t | 6 use Storable qw(dclone); 80 my $meta = CPAN::Meta->new(dclone $distmeta);
|
| /openbsd-src/gnu/usr.bin/perl/dist/Storable/ |
| H A D | MANIFEST | 26 t/dclone.t
|
| H A D | README | 35 There is also a dclone() routine which performs an optimized mirroring
|
| H A D | ChangeLog | 360 - [perl #121928] Fix memory leak for dclone inside freeze hook 426 - Fixes to Storable::dclone, read_magic, retrieve_lscalar 641 - dclone() now works with empty string scalar objects 1095 - Added freeze/thaw interface and dclone.
|
| H A D | Storable.xs | 7620 static SV *dclone(pTHX_ SV *sv) in dclone() function 7826 dclone(sv) 7829 RETVAL = dclone(aTHX_ sv);
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Encode/ |
| H A D | Encode.pm | 171 return Storable::dclone($obj);
|
| /openbsd-src/gnu/usr.bin/perl/lib/Unicode/ |
| H A D | UCD.pm | 179 return dclone(shift) if defined &dclone;
|
| H A D | UCD.t | 1523 $tested_invlist{$file} = dclone \@tested; 1675 $tested_invmaps{$name} = dclone $return_ref;
|
| /openbsd-src/gnu/usr.bin/perl/regen/ |
| H A D | HeaderParser.pm | 20 # use Storable qw(dclone); 151 return Storable::dclone($aoa);
|
| /openbsd-src/gnu/usr.bin/perl/cpan/perlfaq/lib/ |
| H A D | perlfaq4.pod | 2711 5.8 release of Perl), provides a function called C<dclone> that recursively 2714 use Storable qw(dclone); 2715 $r2 = dclone($r1); 2718 It will be deeply copied. Because C<dclone> takes and returns references, 2722 %newhash = %{ dclone(\%oldhash) };
|