blob: 688ca1e56887cc2129c1510cf218d3ff119e0621 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
package Hints_provider_does;
use strict;
use warnings;
use Exporter 5.57 'import';
our @EXPORT_OK = qw(always_fail always_pass no_hints);
sub DOES {
my ($class, $arg) = @_;
return 1 if ($arg eq 'autodie::hints::provider');
return $class->SUPER::DOES($arg) if $class->SUPER::can('DOES');
return $class->isa($arg);
}
my $package = __PACKAGE__;
sub AUTODIE_HINTS {
return {
always_fail => { list => sub { 1 }, scalar => sub { 1 } },
always_pass => { list => sub { 0 }, scalar => sub { 0 } },
};
}
sub always_fail { return "foo" };
sub always_pass { return "foo" };
sub no_hints { return "foo" };
1;
|
