Select Code to Download

package Location;
use 5.008001;
...
use constant nl=>"\n";
use constant X=>0; # these are the array fields
use constant Y=>1;

# defaults
{
...
    return $default_location->[Y];
    }
}

sub new{
    use integer;
...
    $y||get_default_Y
    ],$self;
}

sub get_location{
    my $self=shift;
...
    my $self=shift;
    return $self->get_location->[Y];
}

sub set_location{
    my ($self,$x,$y)=@_;
...
}
# so far so nice
1;

use integer; #we use integer coordinates
use constant nl=>"\n";
...
use constant Y=>1;
# overload => thats new !
use overloead '<=>' => 'compare';

sub compare {
    my ($loc1,$loc2,$rev)=@_;
...
        return 0;
    return ;
}