"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Libtmp/Transform/Cartography/Cartography.pm" between
PDL-2.079.tar.gz and PDL-2.080.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Cartography.pm  (PDL-2.079):Cartography.pm  (PDL-2.080)
skipping to change at line 676 skipping to change at line 676
# #
# Cartography general constructor -- called by the individual map # Cartography general constructor -- called by the individual map
# constructors. Not underscored because it's certainly OK to call from # constructors. Not underscored because it's certainly OK to call from
# outside -- but the *last* argument is the name of the transform. # outside -- but the *last* argument is the name of the transform.
# #
# The options list is put into the {options} field of the newly constructed # The options list is put into the {options} field of the newly constructed
# Transform -- fastidious subclass constructors will want to delete it before # Transform -- fastidious subclass constructors will want to delete it before
# returning. # returning.
# #
sub _new { new('PDL::Transform::Cartography',@_); } # not exported sub _new { __PACKAGE__->new(@_); } # not exported
sub new { sub new {
my($class) = shift; my($class) = shift;
my($name) = pop; my($name) = pop;
my($o) = $_[0]; my($o) = $_[0];
$o = {@_} $o = {@_}
unless(ref $o eq 'HASH'); unless(ref $o eq 'HASH');
my($me) = PDL::Transform::new($class); my($me) = __PACKAGE__->SUPER::new;
$me->{idim} = $me->{odim} = 2; $me->{idim} = $me->{odim} = 2;
$me->{name} = $name; $me->{name} = $name;
#### ####
# Parse origin and units arguments # Parse origin and units arguments
# #
my $or = _opt($o,['o','origin','Origin'],zeroes(2)); my $or = _opt($o,['o','origin','Origin'],zeroes(2));
if($or->nelem != 2) { if($or->nelem != 2) {
croak("PDL::Transform::Cartography: origin must have 2 elements\n"); croak("PDL::Transform::Cartography: origin must have 2 elements\n");
} }
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)