cpan/Test-Simple/lib/Test2/API/InterceptResult/Facet.pm

   1 package Test2::API::InterceptResult::Facet;
   2 use strict;
   3 use warnings;
   4
   5 our $VERSION = '1.302183';
   6
   7 BEGIN {
   8     require Test2::EventFacet;
   9     our @ISA = ('Test2::EventFacet');
  10 }
  11
  12 our $AUTOLOAD;
  13 sub 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
  23 sub DESTROY {}
  24
  25 1;