Overloading in Perl / Using overload.pm

Type Conversion Example

• 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};
  }