xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm (revision 5486feefcc8cb79b19e014ab332cc5dfd05b3b33)
1package Test2::API::InterceptResult::Facet;
2use strict;
3use warnings;
4
5our $VERSION = '1.302199';
6
7BEGIN {
8    require Test2::EventFacet;
9    our @ISA = ('Test2::EventFacet');
10}
11
12our $AUTOLOAD;
13sub AUTOLOAD {
14    my $self = shift;
15
16    my $name = $AUTOLOAD;
17    $name =~ s/^.*:://g;
18
19    return undef unless exists $self->{$name};
20    return $self->{$name};
21}
22
23sub DESTROY {}
24
251;
26