Data-Collector

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build 0.3601;


my %module_build_args = (
  "build_requires" => {
    "File::Find" => 0,
    "File::Temp" => 0,
    "Module::Build" => "0.3601",
    "Sub::Override" => 0,
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "configure_requires" => {
    "ExtUtils::MakeMaker" => "6.30",
    "Module::Build" => "0.3601"
  },
  "dist_abstract" => "Collect information from multiple sources",
  "dist_author" => [

META.yml  view on Meta::CPAN

---
abstract: 'Collect information from multiple sources'
author:
  - 'Sawyer X <xsawyerx@cpan.org>'
build_requires:
  File::Find: 0
  File::Temp: 0
  Module::Build: 0.3601
  Sub::Override: 0
  Test::Fatal: 0
  Test::More: 0
  strict: 0
  warnings: 0
configure_requires:
  ExtUtils::MakeMaker: 6.30
  Module::Build: 0.3601
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.300020, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:

Makefile.PL  view on Meta::CPAN

my %WriteMakefileArgs = (
  "ABSTRACT" => "Collect information from multiple sources",
  "AUTHOR" => "Sawyer X <xsawyerx\@cpan.org>",
  "BUILD_REQUIRES" => {
    "File::Find" => 0,
    "File::Temp" => 0,
    "Module::Build" => "0.3601",
    "Sub::Override" => 0,
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "CONFIGURE_REQUIRES" => {
    "ExtUtils::MakeMaker" => "6.30",
    "Module::Build" => "0.3601"
  },
  "DISTNAME" => "Data-Collector",
  "EXE_FILES" => [

t/collector/collect.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 6;
use Test::Fatal;

use Sub::Override;
use Data::Collector;
use Data::Collector::Engine::OpenSSH;

my $sub = Sub::Override->new;

{
    package Data::Collector::Engine::MyTest;
    use Moose;

t/collector/nonexistent_engine.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 3;
use Test::Fatal;

use Data::Collector;

# what happens when we want an engine that doesn't exist?
my $collector;

# engine is lazy
is(
    exception {
        $collector = Data::Collector->new( engine => 'J7fhZd90aZZ' );

t/collector/nonexistent_serializer.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 3;
use Test::Fatal;

use Data::Collector;

# what happens when we want an engine that doesn't exist?
my $collector;

# engine is lazy
is(
    exception {
        $collector = Data::Collector->new( format => 'J7fhZd90aZZ' );

t/engine/openssh.t  view on Meta::CPAN

#!perl
use strict;
use warnings;

use Test::More tests => 13;
use Test::Fatal;

use Sub::Override;
use Data::Collector::Engine::OpenSSH;

my $engine = Data::Collector::Engine::OpenSSH->new(
    host => 'localhost',
    user => 'joe',
);

my $sub = Sub::Override->new;

t/engine/subclassing.t  view on Meta::CPAN

#!perl

package main;
use strict;
use warnings;

use Test::More tests => 12;
use Test::Fatal;

use Sub::Override;
use Data::Collector;

my $sub = Sub::Override->new;

{
    package Data::Collector::Engine::MyTest;
    use Moose;
    extends 'Data::Collector::Engine';

t/info/base.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 12;
use Test::Fatal;

use Sub::Override;
use Data::Collector::Info;

my $sub  = Sub::Override->new( 'Data::Collector::Info::info_keys' => sub {0} );
my $info = Data::Collector::Info->new;
isa_ok( $info, 'Data::Collector::Info' );

is( $info->load, 1, 'load() return value' );

t/info/reserved_keys.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 1;
use Test::Fatal;

{
    package Data::Collector::Info::One;
    use Moose;
    extends 'Data::Collector::Info';
    sub info_keys { ['this'] }

    package Data::Collector::Info::Two;
    use Moose;
    extends 'Data::Collector::Info';

t/serializers/json.t  view on Meta::CPAN

#!perl
use strict;
use warnings;

use Test::More tests => 6;
use Test::Fatal;

use JSON;
use Data::Collector::Serializer::JSON;

my $serializer = Data::Collector::Serializer::JSON->new();

{
    my $json = $serializer->serialize( { huck => '' } );
    my $data = q{};