package Frooble;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw(name));
use overload '""' => \&as_string;
sub as_string { shift->name };
1;