view release on metacpan or  search on metacpan

lib/Astro/FITS/CFITSIO/Utils.pm  view on Meta::CPAN

        while ( ( $keyw, $value ) = splice( @o_args, 0, 2 ) ) {
            if ( $keyw =~ /^(?:hdu_num|)$/i ) {
                $args{ lc $keyw } = $value;
            }
            else {
                push @args, $keyw, $value;
            }
        }

        my $self = $class->SUPER::new( @args );

        # handle the attributes that we know about
        $self->$keyw( $value ) while ( ( $keyw, $value ) = each %args );

        return $self;
    }

    sub hdu_num {
        my $self = shift;
        if ( @_ ) {