Data-Type-Digger

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'digging types from data structures'
author:
  - 'ANTONC <antonc@cpan.org>'
  - 'ANTONC <antonc@cpan.org>'
build_requires:
  ExtUtils::MakeMaker: 6.59
  Modern::Perl: 0
  Test::More: 0
  Test::Spec: 0
configure_requires:
  ExtUtils::MakeMaker: 6.59
  Module::Install: 0
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.06'
license: artistic2
meta-spec:

META.yml  view on Meta::CPAN

    - inc
    - t
requires:
  Clone: 0.37
  Config: 0
  Cwd: 0
  ExtUtils::MakeMaker: 0
  File::Find: 0
  File::Path: 0
  File::Spec: 0
  Modern::Perl: 1.2
  Module::Install::Base: 0
  Scalar::Util: 1.42
  perl: 5.14.0
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Data-Type-Digger
  license: http://www.perlfoundation.org/artistic_license_2_0
version: 0.06

Makefile.PL  view on Meta::CPAN

   license    => 'http://www.perlfoundation.org/artistic_license_2_0',
   bugtracker => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=Data-Type-Digger',
);

configure_requires (
   'Module::Install' => 0,
);

build_requires (
   'Test::More'   => 0,
   'Modern::Perl' => 0,
   'Test::Spec'   => 0,
);

requires (
    'Clone'        => 0.37,
    'Modern::Perl' => 1.20,
    'Scalar::Util' => 1.42,
    'Config'       => 0,
    'Cwd'          => 0,
    'File::Find'   => 0,
    'File::Path'   => 0,
    'File::Spec'   => 0,
    'ExtUtils::MakeMaker'   => 0,
    'Module::Install::Base' => 0,
);

lib/Data/Type/Digger.pm  view on Meta::CPAN

    This program is free software; you can redistribute it and/or modify it
    under the terms of the the Artistic License (2.0). You may obtain a
    copy of the full license at:

    L<http://www.perlfoundation.org/artistic_license_2_0>

=cut

use v5.14.0;
use Modern::Perl;
use Clone;
use Scalar::Util;
use Exporter 'import';

our $VERSION = '0.06';

our @EXPORT_OK = qw/ dig /;

our %_param;
our $_levels_to_stop;

t/01-code.t  view on Meta::CPAN

#!/usr/bin/perl

use 5.14.0;
use Modern::Perl;
use Test::Spec;

plan tests => 15;

use Data::Type::Digger qw/dig/;

describe 'scalar' => sub {
    my $data1 = '1';

    my $res1 = dig(