package Test2::Compare::EventMeta;
use strict;
use warnings;

use base 'Test2::Compare::Meta';

our $VERSION = '0.000141';

use Test2::Util::HashBase;

sub get_prop_file    { $_[1]->trace->file }
sub get_prop_line    { $_[1]->trace->line }
sub get_prop_package { $_[1]->trace->package }
sub get_prop_subname { $_[1]->trace->subname }
sub get_prop_debug   { $_[1]->trace->debug }
sub get_prop_tid     { $_[1]->trace->tid }
sub get_prop_pid     { $_[1]->trace->pid }




=encoding UTF-8

=head1 NAME

Test2::Compare::EventMeta - Meta class for events in deep comparisons


This is used in deep comparisons of event objects. You should probably never
use this directly.


=over 4

=item file

File that generated the event.

=item line

Line where the event was generated.

=item package

Package that generated the event.

=item subname

Name of the tool that generated the event.

=item debug

The debug information that will be printed in event of a failure.

=item tid

Thread ID of the thread that generated the event.

=item pid

Process ID of the process that generated the event.


=head1 SOURCE

The source code repository for Test2-Suite can be found at


=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>


=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>



Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<>