1package Hints_provider_does; 2use strict; 3use warnings; 4use Exporter 5.57 'import'; 5 6our @EXPORT_OK = qw(always_fail always_pass no_hints); 7 8sub 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 16my $package = __PACKAGE__; 17 18sub 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 25sub always_fail { return "foo" }; 26sub always_pass { return "foo" }; 27sub no_hints { return "foo" }; 28 291; 30