summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Test2/API/InterceptResult/Facet.pm
blob: 54589fa5af2aab7086900565d06718f876909b81 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
package Test2::API::InterceptResult::Facet;
use strict;
use warnings;

our $VERSION = '1.302194';

BEGIN {
    require Test2::EventFacet;
    our @ISA = ('Test2::EventFacet');
}

our $AUTOLOAD;
sub AUTOLOAD {
    my $self = shift;

    my $name = $AUTOLOAD;
    $name =~ s/^.*:://g;

    return undef unless exists $self->{$name};
    return $self->{$name};
}

sub DESTROY {}

1;