Config-XrmDatabase

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Exporter" : "0",
            "Feature::Compat::Try" : "0",
            "File::Slurper" : "0",
            "Hash::Fold" : "0",
            "Hash::Merge" : "0",
            "Moo" : "2",
            "MooX::StrictConstructor" : "0",
            "Ref::Util" : "0",
            "Scalar::Util" : "0",
            "Storable" : "0",
            "Type::Library" : "0",
            "Type::Params" : "0",
            "Type::Utils" : "0",
            "Types::Standard" : "1.010003",
            "constant" : "0",
            "custom::failures" : "0",
            "custom::failures::x::alias" : "0",
            "experimental" : "0",

META.yml  view on Meta::CPAN

    file: lib/Config/XrmDatabase/Util.pm
    version: '0.08'
requires:
  Exporter: '0'
  Feature::Compat::Try: '0'
  File::Slurper: '0'
  Hash::Fold: '0'
  Hash::Merge: '0'
  Moo: '2'
  MooX::StrictConstructor: '0'
  Ref::Util: '0'
  Scalar::Util: '0'
  Storable: '0'
  Type::Library: '0'
  Type::Params: '0'
  Type::Utils: '0'
  Types::Standard: '1.010003'
  constant: '0'
  custom::failures: '0'
  custom::failures::x::alias: '0'
  experimental: '0'

lib/Config/XrmDatabase.pm  view on Meta::CPAN

our $VERSION = '0.08';

use Feature::Compat::Try;

use Config::XrmDatabase::Failure ':all';
use Config::XrmDatabase::Util ':all';
use Config::XrmDatabase::Types -all;
use Types::Standard qw( Object Str Optional HashRef );
use Type::Params    qw( compile_named );
use Ref::Util;

use Moo;

use namespace::clean;

use MooX::StrictConstructor;

use experimental qw( signatures postderef declared_refs refaliasing );
use if $] >= 5.034, 'experimental', 'try';

lib/Config/XrmDatabase.pm  view on Meta::CPAN

      if @$class != @$name;

    my $return_all = $opt{return_value} eq QUERY_RETURN_ALL;

    my $match  = [];
    my @qargs  = ( $class, $name, $return_all, $match );
    my $retval = $self->_query( $self->_db, 0, \@qargs );

    if ( !defined $retval ) {
        return $opt{on_failure}->( $name, $class )
          if Ref::Util::is_coderef( $opt{on_failure} );

        query_failure->throw(
            "unable to match name: '@{[ name_arr_to_str($name) ]} '; class : '@{[ name_arr_to_str($class) ]}'" )
          if $opt{on_failure} eq QUERY_ON_FAILURE_THROW;

        return undef;
    }

    return $opt{return_value} eq QUERY_RETURN_VALUE ? $$retval : $retval;
}

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

                    },
       'runtime' => {
                      'requires' => {
                                      'Exporter' => '0',
                                      'Feature::Compat::Try' => '0',
                                      'File::Slurper' => '0',
                                      'Hash::Fold' => '0',
                                      'Hash::Merge' => '0',
                                      'Moo' => '2',
                                      'MooX::StrictConstructor' => '0',
                                      'Ref::Util' => '0',
                                      'Scalar::Util' => '0',
                                      'Storable' => '0',
                                      'Type::Library' => '0',
                                      'Type::Params' => '0',
                                      'Type::Utils' => '0',
                                      'Types::Standard' => '1.010003',
                                      'constant' => '0',
                                      'custom::failures' => '0',
                                      'custom::failures::x::alias' => '0',
                                      'experimental' => '0',