ACIL FM

Nama	Ukuran	Aksi
API	-	Open
Event	-	Open
EventFacet	-	Open
Formatter	-	Open
Hub	-	Open
IPC	-	Open
Tools	-	Open
Util	-	Open
API.pm	47.26 MB	View DL Edit
Event.pm	22.11 MB	View DL Edit
EventFacet.pm	1.46 MB	View DL Edit
Formatter.pm	3.86 MB	View DL Edit
Hub.pm	22.29 MB	View DL Edit
IPC.pm	3.1 MB	View DL Edit
Transition.pod	13.18 MB	View DL Edit
Util.pm	10.25 MB	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/Test2/EventFacet.pm

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

our $VERSION = '1.302183';

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
F<http://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 F<http://dev.perl.org/licenses/>

=cut

Batal