1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use diagnostics;
use Test::More tests => 4;
use_ok( 'Hash::AsObject' );
package Hash::AsObject::Foo;
@Hash::AsObject::Foo::ISA = qw(Hash::AsObject);
*Hash::AsObject::Foo::AUTOLOAD = \&Hash::AsObject::AUTOLOAD;
my $foo = *Hash::AsObject::Foo::AUTOLOAD; # Suppress "used only once" warning
package main;
my $hash = Hash::AsObject::Foo->new;
is( ref($hash), 'Hash::AsObject::Foo', 'blessing' );
is( $hash->abc('123'), 123, 'set scalar' );
is( $hash->abc, 123, 'get scalar' );
|
