Data-Focus

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Scalar::Util" : "0",
            "Test::More" : "1.00",
            "overload" : "0",
            "parent" : "0"
         }
      },
      "test" : {
         "requires" : {
            "Exporter" : "0",
            "Scalar::Util" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0"
         }
      }
   },
   "release_status" : "stable",
   "resources" : {
      "bugtracker" : {
         "web" : "https://github.com/debug-ito/Data-Focus/issues"
      },
      "repository" : {

META.yml  view on Meta::CPAN

---
abstract: 'generic getter/setter/traverser for complex data structures'
author:
  - 'Toshio Ito <toshioito@cpan.org>'
build_requires:
  Exporter: '0'
  Scalar::Util: '0'
  Test::Fatal: '0'
  Test::More: '0'
configure_requires:
  Module::Build: '0.42'
  Module::Build::Prereqs::FromCPANfile: '0.02'
dynamic_config: 1
generated_by: 'Module::Build version 0.4205, CPAN::Meta::Converter version 2.141170'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'

cpanfile  view on Meta::CPAN

requires "parent";
requires "Carp";
requires "Exporter";
requires "Scalar::Util";
requires "overload";
requires "Test::More" => "1.00";
requires "Scalar::Util";

on 'test' => sub {
    requires 'Test::More' => "0";
    requires 'Test::Fatal';
    requires 'Exporter';
    requires "Scalar::Util";
};

on 'configure' => sub {
    requires 'Module::Build', '0.42';
    requires 'Module::Build::Prereqs::FromCPANfile', "0.02";
};

t/lens/accessor/basic.t  view on Meta::CPAN

use strict;
use warnings FATAL => "all";
use Test::More;
use Test::Fatal;
use Data::Focus qw(focus);
use Data::Focus::Lens::Accessor;
use lib "t";
use testlib::AccessorSample;
use testlib::Identity qw(identical);

sub lens {
    my ($name) = @_;
    return Data::Focus::Lens::Accessor->new(method => $name);
}

t/lens/dynamic/basic.t  view on Meta::CPAN

use strict;
use warnings FATAL => "all";
use Test::More;
use Test::Fatal;
use Data::Focus qw(focus);
use Data::Focus::Lens::Dynamic;
use Data::Focus::Lens::HashArray::Index;
use Data::Focus::Lens::Composite;

package OK;
sub new { return bless {data => [1,2,3]}, shift }
sub Lens {
    return Data::Focus::Lens::HashArray::Index->new(index => "data", allow_blessed => 1)
        . Data::Focus::Lens::HashArray::Index->new(index => $_[1]);

t/lens/hasharray/index/array.t  view on Meta::CPAN

use strict;
use warnings FATAL => "all";
use Test::More;
use Test::Fatal;
use Data::Focus qw(focus);
use Data::Focus::Lens::HashArray::Index;

note("edges cases for array targets");

{
    foreach my $immutable (0, 1) {
        foreach my $case (
            {label => "single", index => -10},
            {label => "boundary", index => -5},