Image-DS9

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Visitor::Tiny" : "0",
            "Exporter" : "0",
            "Exporter::Shiny" : "0",
            "Exporter::Tiny" : "0",
            "IPC::XPA" : "0",
            "List::Util" : "0",
            "Log::Any" : "0",
            "Module::Runtime" : "0",
            "Proc::Background" : "0",
            "Proc::Daemon" : "0",
            "Ref::Util" : "0",
            "Safe::Isa" : "0",
            "Scalar::Util" : "0",
            "SemVer" : "0",
            "Time::HiRes" : "0",
            "Type::Tiny" : "0",
            "Types::TypeTiny" : "0",
            "base" : "0",
            "constant" : "0",
            "enum" : "0",
            "namespace::clean" : "0",

META.yml  view on Meta::CPAN

  Data::Visitor::Tiny: '0'
  Exporter: '0'
  Exporter::Shiny: '0'
  Exporter::Tiny: '0'
  IPC::XPA: '0'
  List::Util: '0'
  Log::Any: '0'
  Module::Runtime: '0'
  Proc::Background: '0'
  Proc::Daemon: '0'
  Ref::Util: '0'
  Safe::Isa: '0'
  Scalar::Util: '0'
  SemVer: '0'
  Time::HiRes: '0'
  Type::Tiny: '0'
  Types::TypeTiny: '0'
  base: '0'
  constant: '0'
  enum: '0'
  namespace::clean: '0'

Makefile.PL  view on Meta::CPAN

    "Data::Visitor::Tiny" => 0,
    "Exporter" => 0,
    "Exporter::Shiny" => 0,
    "Exporter::Tiny" => 0,
    "IPC::XPA" => 0,
    "List::Util" => 0,
    "Log::Any" => 0,
    "Module::Runtime" => 0,
    "Proc::Background" => 0,
    "Proc::Daemon" => 0,
    "Ref::Util" => 0,
    "Safe::Isa" => 0,
    "Scalar::Util" => 0,
    "SemVer" => 0,
    "Time::HiRes" => 0,
    "Type::Tiny" => 0,
    "Types::TypeTiny" => 0,
    "base" => 0,
    "constant" => 0,
    "enum" => 0,
    "namespace::clean" => 0,

Makefile.PL  view on Meta::CPAN

  "IPC::Open3" => 0,
  "IPC::XPA" => 0,
  "List::Util" => 0,
  "Log::Any" => 0,
  "Log::Any::Adapter" => 0,
  "Module::Runtime" => 0,
  "PDL" => 0,
  "Path::Tiny" => 0,
  "Proc::Background" => 0,
  "Proc::Daemon" => 0,
  "Ref::Util" => 0,
  "Regexp::Common" => 0,
  "Safe::Isa" => 0,
  "Scalar::Util" => 0,
  "SemVer" => 0,
  "Test2::Tools::Command" => 0,
  "Test2::V0" => 0,
  "Test::Lib" => 0,
  "Test::More" => 0,
  "Test::TempDir::Tiny" => 0,
  "Time::HiRes" => 0,

dist.ini  view on Meta::CPAN

[Prereqs]
CXC::Exporter::Util = 0
Data::Dump          = 0
Data::Visitor::Tiny = 0
Exporter::Tiny      = 0
IPC::XPA            = 0
Log::Any            = 0
Proc::Background    = 0
Proc::Daemon        = 0
Ref::Util           = 0
Safe::Isa           = 0
SemVer              = 0
Time::HiRes         = 0
Type::Tiny          = 0
enum                = 0

[Prereqs / TestRequires]
Astro::FITS::Header = 0
Regexp::Common      = 0
Test2::V0           = 0

lib/Image/DS9.pm  view on Meta::CPAN

use Module::Runtime 'use_module';

our $VERSION = 'v1.0.1';

use IPC::XPA;
use Safe::Isa;

use Image::DS9::Command;
use Image::DS9::Util 'parse_version';
use Time::HiRes qw[ sleep ];
use Ref::Util 'is_ref', 'is_arrayref';
use List::Util 'any', 'first';
use Log::Any '$log', prefix => ( __PACKAGE__ . q{: } );
use Image::DS9::Constants::V1 -terminate_ds9, 'TERMINATE_DS9';

use constant SERVER => 'ds9';

use namespace::clean;

use constant HAVE_PDL => eval {    ## no critic(ErrorHandling::RequireCheckingReturnValueOfEval)
    use_module( 'PDL::Core' );

lib/Image/DS9.pm.orig  view on Meta::CPAN

use Module::Runtime 'use_module';

our $VERSION = 'v1.0.0';

use IPC::XPA;
use Safe::Isa;

use Image::DS9::Command;
use Image::DS9::Util 'parse_version';
use Time::HiRes qw[ sleep ];
use Ref::Util 'is_ref';
use List::Util 'any', 'first';
use Log::Any '$log', prefix => ( __PACKAGE__ . q{: } );
use Image::DS9::Constants::V1 -terminate_ds9, 'TERMINATE_DS9';

use constant SERVER => 'ds9';

use namespace::clean;

use constant HAVE_PDL => eval {    ## no critic(ErrorHandling::RequireCheckingReturnValueOfEval)
    use_module( 'PDL::Core' );

lib/Image/DS9/Command.pm  view on Meta::CPAN

our $VERSION = 'v1.0.1';

our @CARP_NOT = qw( Image::DS9 );

use Image::DS9::PConsts;
use Image::DS9::Grammar 'grammar';
use Image::DS9::Parser;
use Image::DS9::Constants::V1 'SPECIAL_ATTRIBUTES';

use Ref::Util 'is_arrayref', 'is_scalarref';
use Scalar::Util 'reftype';

use namespace::clean;

sub _croak {
    require Carp;
    my $fmt = shift;
    @_ = sprintf( $fmt, @_ );
    goto \&Carp::croak;
}

lib/Image/DS9/PConsts.pm  view on Meta::CPAN

# ABSTRACT: Internal Constants

use v5.10;

use strict;
use warnings;
use overload ();

use Data::Visitor::Tiny ();
use Ref::Util qw( is_regexpref is_coderef is_blessed_ref is_ref is_arrayref is_refref is_scalarref);
use Scalar::Util 'reftype';

our $VERSION = 'v1.0.1';

use Types::TypeTiny 'is_StringLike';

use Image::DS9::Util 'is_TODO';

use Image::DS9::Constants::V1
  'COLORS',

lib/Image/DS9/PConsts.pm  view on Meta::CPAN

## no critic (Modules::ProhibitMultiplePackages)
## no critic (ClassHierarchies::ProhibitExplicitISA)

# These should be split out, but at the moment they require constants
# from Pconsts, and the tokens are defined in Pconsts, so there's a
# circular import loop.

{
    package    #
      Image::DS9::Parser::Token;
    use Ref::Util ();
    sub new {
        my ( $class, %fields ) = @_;

        unless ( Ref::Util::is_ref( $fields{check} ) ) {
            my $check = $fields{check};
            $fields{check} = sub { $_[0] eq $check ? \$_[0] : undef };
        }
        return bless \%fields, $class;
    }
    sub check {
        $_[0]{check}->( $_[1] );
    }

    sub extra { $_[0]{extra} }

lib/Image/DS9/PConsts.pm  view on Meta::CPAN

      Image::DS9::Parser::Token::Enum;

    our @ISA = ( 'Image::DS9::Parser::Token' );

    sub new {
        my ( $class, %args ) = @_;

        $args{name} //= 'ENUM';
        %args = $class->_extract_args( \%args );

        die( 'value must be an arrayref' ) unless Ref::Util::is_arrayref( $args{value} );

        my $check = join( q{|}, q{}, ( map { lc $_ } @{ $args{value} } ), q{} );

        return $class->SUPER::new(
            %args,
            check => sub {
                index( $check, q{|} . lc( $_[0] ) . q{|} ) > -1 ? \$_[0] : undef;
            },
        );
    }

lib/Image/DS9/PConsts.pm.orig  view on Meta::CPAN

# ABSTRACT: Internal Constants

use v5.10;

use strict;
use warnings;
use overload ();

use Data::Visitor::Tiny ();
use Ref::Util qw( is_regexpref is_coderef is_blessed_ref is_ref is_arrayref is_refref is_scalarref);
use Scalar::Util 'reftype';

our $VERSION = 'v1.0.1';

use Types::TypeTiny 'is_StringLike';

use Image::DS9::Util 'is_TODO';

use Image::DS9::Constants::V1
  'COLORS',

lib/Image/DS9/PConsts.pm.orig  view on Meta::CPAN

## no critic (Modules::ProhibitMultiplePackages)
## no critic (ClassHierarchies::ProhibitExplicitISA)

# These should be split out, but at the moment they require constants
# from Pconsts, and the tokens are defined in Pconsts, so there's a
# circular import loop.

{
    package    #
      Image::DS9::Parser::Token;
    use Ref::Util ();
    sub new {
        my ( $class, %fields ) = @_;

        unless ( Ref::Util::is_ref( $fields{check} ) ) {
            my $check = $fields{check};
            $fields{check} = sub { $_[0] eq $check ? \$_[0] : undef };
        }
        return bless \%fields, $class;
    }
    sub check {
        $_[0]{check}->( $_[1] );
    }

    sub extra { $_[0]{extra} }

lib/Image/DS9/PConsts.pm.orig  view on Meta::CPAN

      Image::DS9::Parser::Token::Enum;

    our @ISA = ( 'Image::DS9::Parser::Token' );

    sub new {
        my ( $class, %args ) = @_;

        $args{name} //= 'ENUM';
        %args = $class->_extract_args( \%args );

        die( 'value must be an arrayref' ) unless Ref::Util::is_arrayref( $args{value} );

        my $check = join( q{|}, q{}, ( map { lc $_ } @{ $args{value} } ), q{} );

        return $class->SUPER::new(
            %args,
            check => sub {
                index( $check, q{|} . lc( $_[0] ) . q{|} ) > -1 ? \$_[0] : undef;
            },
        );
    }

lib/Image/DS9/Parser.pm  view on Meta::CPAN

use v5.10;

use strict;
use warnings;

our $VERSION = 'v1.0.1';

our @CARP_NOT = qw( Image::DS9::Command );

use Image::DS9::PConsts;
use Ref::Util qw( is_arrayref is_coderef is_hashref is_ref is_regexpref );
use Log::Any '$log';

use namespace::clean;

## no critic (Modules::ProhibitMultiplePackages)

{
    package    #
      Image::DS9::Parser::Value;

t/00-report-prereqs.dd  view on Meta::CPAN

                                      'Data::Visitor::Tiny' => '0',
                                      'Exporter' => '0',
                                      'Exporter::Shiny' => '0',
                                      'Exporter::Tiny' => '0',
                                      'IPC::XPA' => '0',
                                      'List::Util' => '0',
                                      'Log::Any' => '0',
                                      'Module::Runtime' => '0',
                                      'Proc::Background' => '0',
                                      'Proc::Daemon' => '0',
                                      'Ref::Util' => '0',
                                      'Safe::Isa' => '0',
                                      'Scalar::Util' => '0',
                                      'SemVer' => '0',
                                      'Time::HiRes' => '0',
                                      'Type::Tiny' => '0',
                                      'Types::TypeTiny' => '0',
                                      'base' => '0',
                                      'constant' => '0',
                                      'enum' => '0',
                                      'namespace::clean' => '0',

t/version.t  view on Meta::CPAN

#! perl

use v5.10;
use strict;
use warnings;

use Test2::V0;
use Scalar::Util 'isvstring';
use Ref::Util 'is_ref';
use Image::DS9;
use Image::DS9::Util 'parse_version';
use version;

use Test::Lib;
use My::Util;

my $ds9 = start_up();

subtest parse_version => sub {

utils/grammar-to-pod  view on Meta::CPAN

use Data::Dump;

## no critic (Modules::ProhibitMultiplePackages)

package    #
  SubCommand {
    use Moo;
    use MooX::StrictConstructor;
    use experimental 'declared_refs', 'refaliasing', 'signatures';

    use Ref::Util 'is_arrayref';
    use Safe::Isa;

    use Image::DS9::PConsts qw( QNONE QARGS QYES QONLY STRING );

    use Types::Standard       qw( ArrayRef Bool InstanceOf );
    use Types::Common::String qw( NonEmptyStr );

    use constant Token => 'Image::DS9::Parser::Token';

    use constant TokenType => InstanceOf [Token];

utils/grammar-to-pod  view on Meta::CPAN

  Command {

    use DDP;
    use Data::Dump qw( dd pp );
    use Moo;
    use MooX::StrictConstructor;
    use builtin 'true', 'false';
    use experimental 'declared_refs', 'refaliasing', 'signatures', 'builtin';

    use Safe::Isa;
    use Ref::Util 'is_arrayref', 'is_blessed_ref', 'is_ref', 'is_coderef', 'is_regexpref';

    use Types::Standard       qw( ArrayRef Bool InstanceOf );
    use Types::Common::String qw( NonEmptyStr );
    use Iterator::Flex::Common 'iproduct', 'iter';
    use Image::DS9::PConsts qw( QNONE QARGS QYES QONLY QATTR );
    use Image::DS9::Util 'is_TODO';
    use Feature::Compat::Try;

    has name => (
        is       => 'ro',