Select Code to Download

sub fib {
  my $nth = shift;
  return $nth if $nth <= 1;
  return fib( $nth - 1 ) + fib( $nth - 2 );
}

sub fib {
  croak("…")  if @_ != 1;
...
  return $nth if $nth <= 1;
  return fib( $nth - 1 ) + fib( $nth - 2 );
}

sub fib(UInt $nth) {
  return $nth if $nth <= 1;
  return fib( $nth - 1 ) + fib( $nth - 2 )
}

class Point
    attr_accessor :x
...
        return Point.new @y, @x
    end
end

class Point {
  public $x, $y;
...
  }

}

class Point:
    def __init__(self, x, y):
...

    def inverted(self):
        return Point(self.y,self.x)

package Point;
use Carp 'croak';
...
}

1;

class Point {
    has Num ($x, $y);
...
        return Point->new( x => $y, y => $x );
    }
}

class Cache::LRU {
    use Hash::Ordered;
...
        return $x->set( $key, $x->delete($key) );
    }
}

package Cache::LRU {
    use Hash::Ordered;
...

    __PACKAGE__->meta->make_immutable;
}