Admin

name	type	size	perms	modified	actions
[parent directory]
API/	dir	-	0755	2026-08-19 08:10:12
AsyncSubtest/	dir	-	0755	2026-08-19 08:10:12
Bundle/	dir	-	0755	2026-08-19 08:10:12
Compare/	dir	-	0755	2026-08-19 08:10:12
Event/	dir	-	0755	2026-08-19 08:10:12
EventFacet/	dir	-	0755	2026-08-19 08:10:12
Formatter/	dir	-	0755	2026-08-19 08:10:12
Hub/	dir	-	0755	2026-08-19 08:10:12
IPC/	dir	-	0755	2026-08-19 08:10:12
Manual/	dir	-	0755	2026-08-19 08:10:12
Plugin/	dir	-	0755	2026-08-19 08:10:12
Require/	dir	-	0755	2026-08-19 08:10:12
Tools/	dir	-	0755	2026-08-19 08:10:12
Util/	dir	-	0755	2026-08-19 08:10:12
Workflow/	dir	-	0755	2026-08-19 08:10:12
API.pm	file	49,596 B	0644	2024-04-25 14:05:01	edit
AsyncSubtest.pm	file	19,541 B	0644	2024-06-05 15:11:29	edit
Bundle.pm	file	1,553 B	0644	2024-06-05 15:11:29	edit
Compare.pm	file	11,808 B	0644	2024-06-05 15:11:29	edit
Event.pm	file	22,641 B	0644	2024-04-25 14:05:01	edit
EventFacet.pm	file	1,496 B	0644	2024-04-25 14:05:01	edit
Formatter.pm	file	3,955 B	0644	2024-04-25 14:05:01	edit
Hub.pm	file	22,848 B	0644	2024-04-25 14:05:01	edit
IPC.pm	file	3,176 B	0644	2024-04-25 14:05:01	edit
Manual.pm	file	1,524 B	0644	2024-06-05 15:11:29	edit
Mock.pm	file	22,806 B	0644	2024-06-05 15:11:29	edit
Plugin.pm	file	1,871 B	0644	2024-06-05 15:11:29	edit
Require.pm	file	2,715 B	0644	2024-06-05 15:11:29	edit
Suite.pm	file	9,478 B	0644	2024-06-05 15:11:29	edit
Todo.pm	file	3,859 B	0644	2024-06-05 15:11:29	edit
Tools.pm	file	2,568 B	0644	2024-06-05 15:11:29	edit
Transition.pod	file	13,486 B	0644	2024-04-25 14:05:01	edit
Util.pm	file	10,574 B	0644	2024-04-25 14:05:01	edit
V0.pm	file	11,833 B	0644	2024-06-05 15:11:29	edit
Workflow.pm	file	7,296 B	0644	2024-06-05 15:11:29	edit

editing: EventFacet.pm

package Test2::EventFacet;
use strict;
use warnings;

our $VERSION = '1.302199';

use Test2::Util::HashBase qw/-details/;
use Carp qw/croak/;

my $SUBLEN = length(__PACKAGE__ . '::');
sub facet_key {
    my $key = ref($_[0]) || $_[0];
    substr($key, 0, $SUBLEN, '');
    return lc($key);
}

sub is_list { 0 }

sub clone {
    my $self = shift;
    my $type = ref($self);
    return bless {%$self, @_}, $type;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::EventFacet - Base class for all event facets.

=head1 DESCRIPTION

Base class for all event facets.

=head1 METHODS

=over 4

=item $key = $facet_class->facet_key()

This will return the key for the facet in the facet data hash.

=item $bool = $facet_class->is_list()

This will return true if the facet should be in a list instead of a single
item.

=item $clone = $facet->clone()

=item $clone = $facet->clone(%replace)

This will make a shallow clone of the facet. You may specify fields to override
as arguments.

=back

=head1 SOURCE

The source code repository for Test2 can be found at
L<https://github.com/Test-More/test-more/>.

=head1 MAINTAINERS

=over 4

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

=back

=head1 AUTHORS

=over 4

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

=back

=head1 COPYRIGHT

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

See L<https://dev.perl.org/licenses/>

=cut

cancel