use overload q{""} => 'to_string', +0 => 'to_num'; sub to_string { my $self = shift; return "$_->{num}/$_->{den}"; } sub to_num { my $self = shift; return $_{num}/$_->{den}; }
[Title Page]
[TOC]
[Prev]
[Next]
Page 25 of 31