diff options
author | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
commit | 11c6e5fc65f26ba5219997d19707b998a9abf26d (patch) | |
tree | a1dc8073a679611d3f09c01eda006cc3f6f846b1 /Master/tlpkg/tlperl/lib/Test2/Event.pm | |
parent | a6593bd4f2eb12ae25540de026f7f9ebcf230a2f (diff) |
tl20 perl 5.30.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@54166 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/Event.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test2/Event.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/Event.pm b/Master/tlpkg/tlperl/lib/Test2/Event.pm index 307d49b75e5..598456c1dc3 100755 --- a/Master/tlpkg/tlperl/lib/Test2/Event.pm +++ b/Master/tlpkg/tlperl/lib/Test2/Event.pm @@ -2,14 +2,14 @@ package Test2::Event; use strict; use warnings; -our $VERSION = '1.302133'; +our $VERSION = '1.302162'; use Scalar::Util qw/blessed reftype/; use Carp qw/croak/; -use Test2::Util::HashBase qw/trace -amnesty uuid -hubs/; +use Test2::Util::HashBase qw/trace -amnesty uuid -_eid -hubs/; use Test2::Util::ExternalMeta qw/meta get_meta set_meta delete_meta/; -use Test2::Util qw(pkg_to_file); +use Test2::Util qw/pkg_to_file gen_uid/; use Test2::EventFacet::About(); use Test2::EventFacet::Amnesty(); @@ -120,6 +120,8 @@ sub add_amnesty { } } +sub eid { $_[0]->{+_EID} ||= gen_uid() } + sub common_facet_data { my $self = shift; @@ -130,6 +132,8 @@ sub common_facet_data { $out{about}->{uuid} = $uuid; } + $out{about}->{eid} = $self->{+_EID} || $self->eid; + if (my $trace = $self->trace) { $out{trace} = { %$trace }; } @@ -764,7 +768,7 @@ F<http://github.com/Test-More/test-more/>. =head1 COPYRIGHT -Copyright 2018 Chad Granum E<lt>exodist@cpan.orgE<gt>. +Copyright 2019 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. |