Commit | Line | Data |
9b657a62 |
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; |