AWS-Networks

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: AWS-Networks
requires:
  DateTime: '0'
  File::Slurp: '0'
  HTTP::Tiny: '0'
  IO::Socket::SSL: '0'
  JSON: '0'
  Moose: '0'
  Net::CIDR::Set: '0'
version: '0.01'

Makefile.PL  view on Meta::CPAN

    "bin/aws_ips_for_service",
    "bin/aws_ip"
  ],
  "LICENSE" => "perl",
  "NAME" => "AWS::Networks",
  "PREREQ_PM" => {
    "DateTime" => 0,
    "File::Slurp" => 0,
    "HTTP::Tiny" => 0,
    "IO::Socket::SSL" => 0,
    "JSON" => 0,
    "Moose" => 0,
    "Net::CIDR::Set" => 0
  },
  "TEST_REQUIRES" => {
    "Test::Exception" => 0,
    "Test::More" => 0
  },
  "VERSION" => "0.01",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "DateTime" => 0,
  "ExtUtils::MakeMaker" => 0,
  "File::Slurp" => 0,
  "HTTP::Tiny" => 0,
  "IO::Socket::SSL" => 0,
  "JSON" => 0,
  "Moose" => 0,
  "Net::CIDR::Set" => 0,
  "Test::Exception" => 0,
  "Test::More" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};

dist.ini  view on Meta::CPAN

[@Git]
allow_dirty = dist.ini
allow_dirty = Changes
allow_dirty = README

[@Filter]
-bundle = @Basic
-remove = Readme

[Prereqs]
JSON        = 0
HTTP::Tiny  = 0
Moose       = 0
DateTime    = 0
IO::Socket::SSL = 0
File::Slurp = 0
Net::CIDR::Set = 0

[Prereqs / TestRequires ]
Test::More      = 0
Test::Exception = 0

lib/AWS/Networks.pm  view on Meta::CPAN

package AWS::Networks;
  use Moose;
  use JSON;
  use HTTP::Tiny;
  use DateTime;

  our $VERSION = '0.01';

  has url => (
    is => 'ro', 
    isa => 'Str|Undef', 
    default => 'https://ip-ranges.amazonaws.com/ip-ranges.json'
  );

t/02_tests.t  view on Meta::CPAN

#!/usr/bin/env perl

use Test::More;
use AWS::Networks;

use File::Slurp;
use JSON;

my $json = read_file('t/02_test.json');
my $net = AWS::Networks->new(
  netinfo => decode_json($json)  
);

cmp_ok($net->sync_token->iso8601, 'eq', '2014-11-20T22:47:08', 'Sync Token OK');

is_deeply(
  [ sort @{ $net->regions } ],