xref: /openbsd-src/gnu/usr.bin/perl/cpan/autodie/t/lib/Hints_provider_does.pm (revision b8851fcc53cbe24fd20b090f26dd149e353f6174)
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