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
39
40
41
42
43
44
45
46
47
48
49
50
|
#!perl
use strict;
use warnings;
use Test::More tests => 6;
use Tie::Scalar;
{
package MyClass;
use Mouse;
has foo => (
is => 'rw',
isa => 'Int',
);
has bar => (
is => 'rw',
isa => 'Maybe[Int]',
);
}
sub ts_init {
tie $_[0], 'Tie::StdScalar', $_[1];
}
ts_init(my $x, 10);
my $o = MyClass->new();
is(eval{ $o->foo($x) }, 10)
or diag("Error: $@");
ts_init($x, 'foo');
eval{
$o->bar($x);
};
isnt $@, '';
ts_init $x, 42;
is(eval{ $o->bar($x) }, 42)
or diag("Error: $@");
$o = eval{
ts_init(my $a, 10);
ts_init(my $b, 42);
MyClass->new(foo => $a, bar => $b);
};
ok $o;
is eval{ $o->foo }, 10;
is eval{ $o->bar }, 42;
|
