File Coverage

blib/lib/Data/Record/Serialize/Role/EncodeAndSink.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod			n/a
total	23	25	92.0

package Data::Record::Serialize::Role::EncodeAndSink;

# ABSTRACT: Both an Encode and Sink. handle unwanted/unused required routines

use v5.12;
use strict;
use warnings;

our $VERSION = '2.02';

use Data::Record::Serialize::Error { errors => [qw( internal  )] }, -all;

use Moo::Role;

use namespace::clean;

## no critic ( Subroutines::ProhibitBuiltinHomonyms )
## no critic(BuiltinFunctions::ProhibitComplexMappings)

# These are not used for a combined encoder and sink; if
# they are called it's an internal error, so create versions
# to catch them.

sub say;
sub print;
sub encode;

( *say, *print, *encode ) = map {
    my $stub = $_;
    sub { error( 'internal', "internal error: stub method <$stub> invoked" ) }
} qw( say print encode );

with 'Data::Record::Serialize::Role::Sink';
with 'Data::Record::Serialize::Role::Encode';

1;

#
# This file is part of Data-Record-Serialize
#
# This software is Copyright (c) 2017 by Smithsonian Astrophysical Observatory.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 3, June 2007
#

__END__