# Which means that this... sub read_shx_header {shift()->read_shx_shp_header('shx',@_);} # Is a shortcut for writing out... sub read_shx_header { my $self = shift @_; $self->read_shx_shp_header('shx', @_); }