/usr/share/doc/libclass-std-perl/examples/demo_coercions.pl is in libclass-std-perl 0.013-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | 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}
|