t/lib/Overloading/RoleWithOverloads.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

package Overloading::RoleWithOverloads;

use Moose::Role;

use overload
    q{""}    => 'as_string',
    fallback => 1;

has message => (
    is  => 'rw',
    isa => 'Str',
);

sub as_string { shift->message }

1;