cpan/autodie/t/lib/Hints_provider_isa.pm

   1 package Hints_provider_isa;
   2 use strict;
   3 use warnings;
   4 use base qw(Exporter);
   5
   6 our @EXPORT_OK = qw(always_fail always_pass no_hints);
   7
   8 { package autodie::hints::provider; }
   9
  10 push(our @ISA, 'autodie::hints::provider');
  11
  12 my $package = __PACKAGE__;
  13
  14 sub AUTODIE_HINTS {
  15     return {
  16         always_fail => { list => sub { 1 }, scalar => sub { 1 } },
  17         always_pass => { list => sub { 0 }, scalar => sub { 0 } },
  18     };
  19 }
  20
  21 sub always_fail { return "foo" };
  22 sub always_pass { return "foo" };
  23 sub no_hints    { return "foo" };
  24
  25 1;