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
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
use Test;
BEGIN {
eval q{ local $SIG{__DIE__}; require 5.6; 1 };
if ( $@ ) {
plan( tests => 1 );
print "Skipping test on this platform (lvalue requires 5.6.0 or later).\n";
ok( 1 );
exit 0;
}
}
BEGIN { plan tests => 10 }
package X;
use Class::MakeMethods::Template::Hash (
'new' => 'new',
'scalar --get --lvalue' => [ qw/ a b c /]
);
package main;
my $o = X->new();
ok( 1 ); #1
ok( ! defined $o->a ); #2
ok( $o->a = 123 ); #3
ok( $o->a == 123 ); #4
ok( ! defined ( $o->a = undef ) ); #5
ok( ! defined $o->a ); #6
ok( $o->a = 456 ); #7
ok( $o->a == 456 ); #8
ok( ! defined ( $o->a = undef ) ); #9
ok( ! defined $o->a ); #10
exit 0;
|
