File: hash_copy.t

package info (click to toggle)
libclass-makemethods-perl 1.01-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 1,944 kB
  • sloc: perl: 10,495; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 447 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl

package X;

use Class::MakeMethods::Template::Hash (
  'new --copy' => 'copy',
  'scalar'    => [qw/ a b /],
);

sub new { bless {}, shift; }

package main;
use Test;
BEGIN { plan tests => 8 }

my $o = new X;

ok( 1 ); #1
ok( $o->a ('foo') eq 'foo' ); #2
ok( $c = $o->copy ); #3
ok( $c->a eq 'foo' ); #4
ok( $c->a ('bar') eq 'bar' ); #5
ok( $o->a eq 'foo' ); #6
ok( $o->a ('baz') eq 'baz' ); #7
ok( $c->a eq 'bar' ); #8

exit 0;