Business-Fixflo

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Carp" : "0",
            "DateTime::Tiny" : "1.04",
            "JSON" : "2.9",
            "LWP::Protocol::https" : "6",
            "LWP::UserAgent" : "6",
            "MIME::Base64" : "0",
            "Moo" : "1.006",
            "Throwable" : "0.200011",
            "Try::Tiny" : "0.22",
            "perl" : "5.010001"
         }
      },
      "test" : {
         "requires" : {
            "Test::Deep" : "0.112",
            "Test::Exception" : "0.32",
            "Test::MockObject" : "1.20140408",
            "Test::Most" : "0.31"
         }

META.yml  view on Meta::CPAN

    - inc
requires:
  Carp: '0'
  DateTime::Tiny: '1.04'
  JSON: '2.9'
  LWP::Protocol::https: '6'
  LWP::UserAgent: '6'
  MIME::Base64: '0'
  Moo: '1.006'
  Throwable: '0.200011'
  Try::Tiny: '0.22'
  perl: '5.010001'
resources:
  bugtracker: https://github.com/Humanstate/business-fixflo/issues
  homepage: https://metacpan.org/module/Business::Fixflo
  license: http://dev.perl.org/licenses/
  repository: https://github.com/Humanstate/business-fixflo
version: '0.47'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

    LICENSE          => 'perl',
    MIN_PERL_VERSION => '5.10.1',
    PREREQ_PM => {
        'Moo'                  => 1.006,
        'Carp'                 => 0, # Carp was first released with perl 5
        'Throwable'            => 0.200011,
        'MIME::Base64'         => 0, # MIME::Base64 was first released with perl v5.7.3
        'LWP::UserAgent'       => 6.00,
        'LWP::Protocol::https' => 6.00,
        'JSON'                 => 2.90,
        'Try::Tiny'            => 0.22,
        'DateTime::Tiny'       => 1.04,
    },
    TEST_REQUIRES => {
        'Test::Most'       => 0.31,
        'Test::Deep'       => 0.112,
        'Test::Exception'  => 0.32,
        'Test::MockObject' => 1.20140408,
    },
    META_MERGE => {
        resources => {

lib/Business/Fixflo/Property.pm  view on Meta::CPAN

=head1 DESCRIPTION

A class for a fixflo property, extends L<Business::Fixflo::Resource>

=cut

use strict;
use warnings;

use Moo;
use Try::Tiny;
use Carp qw/ carp /;
use Business::Fixflo::Exception;
use Business::Fixflo::Address;

extends 'Business::Fixflo::Resource';

=head1 ATTRIBUTES

    Id
    AssignedAgent

lib/Business/Fixflo/PropertyAddress.pm  view on Meta::CPAN

A class for a fixflo property address, extends L<Business::Fixflo::Property>

=cut

use strict;
use warnings;

use Moo; 
extends 'Business::Fixflo::Property';

use Try::Tiny;
use Carp qw/ carp /;
use Business::Fixflo::Property;
use Business::Fixflo::Address;
use Business::Fixflo::Exception;

use Carp qw/ confess /;

=head1 Operations on a property address

=head2 get

lib/Business/Fixflo/Resource.pm  view on Meta::CPAN

behaviour. You shouldn't use this class directly, but extend it instead.

=cut

use strict;
use warnings;

use Moo;
use Carp qw/ confess carp /;
use JSON ();
use Try::Tiny;
use Business::Fixflo::Paginator;

=head1 ATTRIBUTES

    client
    url
    url_no_id

=cut

t/business/fixflo/exception.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::Most;
use Test::Exception;
use Try::Tiny;

use_ok( 'Business::Fixflo::Exception' );

throws_ok(
    sub { Business::Fixflo::Exception->throw },
    qr/Missing required arguments: message/,
    '->throw requires a message',
);

throws_ok(

t/business/fixflo/exception.t  view on Meta::CPAN

    ' ... message coerced and available'
);

try {
    Business::Fixflo::Exception->throw(
        message => 'Boo!'
    );
}
catch {
    isa_ok( $_,'Business::Fixflo::Exception' );
    is( $_->message,'Boo!','Try::Tiny catches exceptions' );
};

done_testing();

# vim: ts=4:sw=4:et