File Coverage

blib/lib/CXC/Astro/Regions/CFITSIO/Types.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	31	31	100.0

package CXC::Astro::Regions::CFITSIO::Types;

# ABSTRACT: Types for CFITSIO Regions

use v5.20;
use warnings;

our $VERSION = '0.03';

use Types::Standard        qw( Enum Bool Num Str StrMatch );
use Types::Common::Numeric qw( PositiveNum );

use Type::Utils -all;
use Regexp::Common qw( number );
use Type::Library
  -base,
  -extends => [ 'Types::Common::Numeric', 'Types::Common::String', 'Types::Standard' ],
  -declare => qw(
  Angle
  Length
  PositionAsNum
  Vertex
  XPosition
  YPosition
  );

use CXC::Types::Astro::Coords 'Sexagesimal';

declare PositionAsNum,
  as StrMatch [qr{\A (?: $RE{num}{real} [d]?) \z}x];


declare XPosition, as PositionAsNum | Sexagesimal [ -ra,  -sep ];
declare YPosition, as PositionAsNum | Sexagesimal [ -dec, -sep ];
declare Vertex,    as Tuple [ XPosition, YPosition ];

declare Length, as StrMatch [qr/\A$RE{num}{real} (['"dp])?\z/x];

declare Angle, as Num;

1;

#
# This file is part of CXC-Astro-Regions
#
# This software is Copyright (c) 2023 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__