view release on metacpan or  search on metacpan

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

our %rdfits_spec = (
    extname => { type => SCALAR, optional => 1 },
    extver  => {
        type    => SCALAR,
        depends => 'extname',
        default => 0
    },
    hdunum => {
        type      => SCALAR,
        callbacks => { 'illegal HDUNUM' => \&validHDUNUM, },
        optional  => 1
    },
    hdutype => {
        type      => SCALAR,
        callbacks => { 'illegal HDU type' => \&validHDUTYPE, },
        default   => 'any',
        optional  => 1
    },
    resethdu => { type => SCALAR, default => 0 },
);

sub rdfits {

    # strip off the options hash
    my $opts = 'HASH' eq ref $_[-1] ? pop : {};

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

        spec           => {
            nullval  => { type => SCALAR,          optional => 1 },
            rfilter  => { type => SCALAR,          optional => 1 },
            dtypes   => { type => HASHREF,         optional => 1 },
            defdtype => { isa  => qw[ PDL::Type ], optional => 1 },
            ninc     => { type => SCALAR,          optional => 1 },
            rethash  => { type => SCALAR,          default  => 0 },
            retinfo  => { type => SCALAR,          default  => 0 },
            rethdr   => { type => SCALAR,          default  => 0 },
            status   => {
                callbacks => {
                    "boolean, filehandle, subroutine, or object" =>
                      \&validate_status
                },
                optional => 1
            },
        } );

    # data structure describing the columns
    my %cols;