Overloading in Perl / Number::Fraction

A Closer Look at Number::Fraction

• The constructor is an example of method overloading
• In Perl we only need one method

• sub new {
    my $class = shift;
    my $self;
    if (@_ >= 2) {
      return if $_[0] =~ /\D/ 
        or $_[1] =~ /\D/;
      $self->{num} = $_[0];
      $self->{den} = $_[1];