xref: /openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)
1package Test2::API::InterceptResult::Facet;
2use strict;
3use warnings;
4
5our $VERSION = '1.302194';
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