view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

---
abstract: 'allows you to abbreviate result class names in your relationships'
author:
  - 'Jonathan Cast <jonathanccast@fastmail.fm>'
build_requires:
  Test::Fatal: '0'
  Test::More: '0'
  Try::Tiny: '0'
  indirect: '0'
configure_requires:
  ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.012, CPAN::Meta::Converter version 2.150010'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

Makefile.PL  view on Meta::CPAN

  },
  "DISTNAME" => "DBIx-Class-Relationship-Abbreviate",
  "LICENSE" => "perl",
  "NAME" => "DBIx::Class::Relationship::Abbreviate",
  "PREREQ_PM" => {
    "Carp" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "Try::Tiny" => 0,
    "indirect" => 0
  },
  "VERSION" => "0.001",
  "test" => {
    "TESTS" => "t/*.t"
  }
);


my %FallbackPrereqs = (
  "Carp" => 0,
  "Test::Fatal" => 0,
  "Test::More" => 0,
  "Try::Tiny" => 0,
  "indirect" => 0,
  "strict" => 0,
  "warnings" => 0
);


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

t/abbreviate.t  view on Meta::CPAN

    require DBIx::Class::Relationship::Abbreviate;
    DBIx::Class::Relationship::Abbreviate->import(qw/ result /);

    is(result('Baz'), 'Some::Schema::Result::Baz', 'Very long package names work');
};

subtest 'Invalid class name' => sub {
    package Some::Other::Class::FooBar;

    use Test::More;
    use Test::Fatal qw/ exception /;

    require DBIx::Class::Relationship::Abbreviate;

    my $ex = exception { DBIx::Class::Relationship::Abbreviate->import(qw/ result /) };
    like($ex, qr/Cannot find result namespace in 'Some::Other::Class::FooBar'/);
};

done_testing();