The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

# ABSTRACT: Both an Encode and Sink. handle unwanted/unused required routines
use v5.12;
use strict;
our $VERSION = '2.01';
use Data::Record::Serialize::Error { errors => [qw( internal )] }, -all;
## 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 );
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__
=pod
=for :stopwords Diab Jerius Smithsonian Astrophysical Observatory
=head1 NAME
Data::Record::Serialize::Role::EncodeAndSink - Both an Encode and Sink. handle unwanted/unused required routines
=head1 VERSION
version 2.01
=head1 INTERNALS
=for Pod::Coverage say
print
encode
close
=head1 SUPPORT
=head2 Bugs
Please report any bugs or feature requests to bug-data-record-serialize@rt.cpan.org or through the web interface at: L<https://rt.cpan.org/Public/Dist/Display.html?Name=Data-Record-Serialize>
=head2 Source
Source is available at
and may be cloned from
=head1 SEE ALSO
Please see those modules/websites for more information related to this module.
=over 4
=item *
L<Data::Record::Serialize|Data::Record::Serialize>
=back
=head1 AUTHOR
Diab Jerius <djerius@cpan.org>
=head1 COPYRIGHT AND LICENSE
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
=cut