xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm (revision 5486feefcc8cb79b19e014ab332cc5dfd05b3b33)
1256a93a4Safresh1package Test2::API::InterceptResult::Facet;
2256a93a4Safresh1use strict;
3256a93a4Safresh1use warnings;
4256a93a4Safresh1
5*5486feefSafresh1our $VERSION = '1.302199';
6256a93a4Safresh1
7256a93a4Safresh1BEGIN {
8256a93a4Safresh1    require Test2::EventFacet;
9256a93a4Safresh1    our @ISA = ('Test2::EventFacet');
10256a93a4Safresh1}
11256a93a4Safresh1
12256a93a4Safresh1our $AUTOLOAD;
13256a93a4Safresh1sub AUTOLOAD {
14256a93a4Safresh1    my $self = shift;
15256a93a4Safresh1
16256a93a4Safresh1    my $name = $AUTOLOAD;
17256a93a4Safresh1    $name =~ s/^.*:://g;
18256a93a4Safresh1
19256a93a4Safresh1    return undef unless exists $self->{$name};
20256a93a4Safresh1    return $self->{$name};
21256a93a4Safresh1}
22256a93a4Safresh1
23256a93a4Safresh1sub DESTROY {}
24256a93a4Safresh1
25256a93a4Safresh11;
26