Help for this page

Select Code to Download


  1. or download this
    my @data = (
    [
...
        bless({'X' => '2288891.13335288', 'Y' => '506310.118972175'}, 
+'Point'),
    ]
);
  2. or download this
    sub merge {
    my @allparts = @_;
...
    }
    return @complete;
}
  3. or download this
    package Point;
use overload '==' => sub {
    return ($_[0]->{X} == $_[1]->{X} && $_[0]->{Y} == $_[1]->{Y});
};