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