view release on metacpan or  search on metacpan

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

package Astro::FITS::CFITSIO::FileName;

# ABSTRACT: parse and generate CFITSIO extended file names.

use v5.26;

use strict;
use warnings;

our $VERSION = '0.08';

use Types::Standard        qw[ Str ArrayRef StrMatch Enum Bool Optional Dict ];
use Types::Common::Numeric qw[ PositiveOrZeroInt PositiveInt ];
use Scalar::Util           qw[ blessed ];
use Ref::Util              qw[ is_arrayref ];

use Astro::FITS::CFITSIO::FileName::Regexp -all;

sub _croak {
    require Carp;
    goto \&Carp::croak;
}

use Moo;

use experimental 'signatures', 'postderef', 'declared_refs', 'refaliasing';

use namespace::clean;

BEGIN { with 'MooX::Tag::TO_HASH'; }

use overload
  q{""}    => '_stringify',
  bool     => sub { die "don't use ${\__PACKAGE__} in boolean context" },
  fallback => 1;











has base_filename => (
    is       => 'ro',
    isa      => Str,
    required => 1,
    to_hash  => 1,
);















has file_type => (
    is        => 'ro',
    isa       => Str,
    predicate => 1,
    to_hash   => ',if_defined',
);