gnu/usr.bin/perl/cpan/autodie/t/lib/Hints_provider_easy_does_it.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

package Hints_provider_easy_does_it;
use strict;
use warnings;
use Exporter 5.57 'import';

our @EXPORT_OK = qw(always_fail always_pass no_hints);

our %DOES = ( 'autodie::hints::provider' => 1 );

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;