File Coverage

blib/lib/Test2/Event/Encoding.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 2 3 66.6
total 34 35 97.1


line stmt bran cond sub pod time code
1             package Test2::Event::Encoding;
2 1     1   494 use strict;
  1         2  
  1         31  
3 1     1   5 use warnings;
  1         2  
  1         40  
4              
5             our $VERSION = '1.302180';
6              
7 1     1   6 use Carp qw/croak/;
  1         2  
  1         87  
8              
9 1     1   21 BEGIN { require Test2::Event; our @ISA = qw(Test2::Event) }
  1         59  
10 1     1   6 use Test2::Util::HashBase qw/encoding/;
  1         3  
  1         8  
11              
12             sub init {
13 2     2 0 5 my $self = shift;
14 2 100       212 defined $self->{+ENCODING} or croak "'encoding' is a required attribute";
15             }
16              
17 2     2 1 10 sub summary { 'Encoding set to ' . $_[0]->{+ENCODING} }
18              
19             sub facet_data {
20 1     1 1 3 my $self = shift;
21 1         11 my $out = $self->common_facet_data;
22 1         4 $out->{control}->{encoding} = $self->{+ENCODING};
23 1         4 $out->{about}->{details} = $self->summary;
24 1         4 return $out;
25             }
26              
27              
28             1;
29              
30             __END__