sub add { my ($l, $r) = @_; if (ref $r) { if (UNIVERSAL::isa($r, ref $l) { return Number::Fraction->new($l->{num} * $r->{den} + $r->{num} * $l->{den}, $l->{den} * $r->{den}) } else { ... } else { ... } }
[Title Page]
[TOC]
[Prev]
[Next]
Page 19 of 31