ext/autodie/t/lib/Hints_provider_does.pm

   1 package Hints_provider_does;
   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 sub DOES {
   9     my ($class, $arg) = @_;
  10
  11     return 1 if ($arg eq 'autodie::hints::provider');
  12     return $class->SUPER::DOES($arg) if $class->SUPER::can('DOES');
  13     return $class->isa($arg);
  14 }
  15
  16 my $package = __PACKAGE__;
  17
  18 sub AUTODIE_HINTS {
  19     return {
  20         always_fail => { list => sub { 1 }, scalar => sub { 1 } },
  21         always_pass => { list => sub { 0 }, scalar => sub { 0 } },
  22     };
  23 }
  24
  25 sub always_fail { return "foo" };
  26 sub always_pass { return "foo" };
  27 sub no_hints    { return "foo" };
  28
  29 1;