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
|
package Foo;
use Class::Std;
sub as_str : STRINGIFY { return 'foo' }
sub as_num : NUMERIFY { return 42 }
sub as_bool : BOOLIFY { return 1 }
sub as_hash : HASHIFY { return {key=>'value'} }
sub as_array : ARRAYIFY { return [99..101] }
sub as_code : CODIFY { sub { return 'code' } }
sub as_glob : GLOBIFY { local *FOO; return \*FOO }
package main;
my $obj = Foo->new();
use Smart::Comments;
### "$obj"
### 0+$obj
my $bool = $obj?"true\n":"false\n";
### $bool
### $obj->{key}
### $obj->[1]
### $obj->()
### *{$obj}
|
