File Coverage

blib/lib/MsgPack/Type/Ext.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	17	18	94.4

package MsgPack::Type::Ext;
our $AUTHORITY = 'cpan:YANICK';
$MsgPack::Type::Ext::VERSION = '2.0.3';
use strict;
use warnings;

use Moose;

has "type" => (
    isa => 'Int',
    is => 'ro',
    required => 1,
);

has "data" => (
    is => 'ro',
    required => 1,
);

has fix => (
    isa => 'Bool',
    is => 'ro',
    lazy => 1,
    default => sub {
        my $self = shift;
        length($self->data) < 16;
    },
);

has size => (
    isa => 'Int',
    is => 'ro',
    lazy => 1,
    default => sub {
        my $self = shift;

        if ( $self->fix ) {
            my $size = 0;
            $size++ while 2**$size < length $self->data;
            return 2**$size;

        }

        return length $self->data;
    },
);

sub padded_data {
    my $self = shift;

    my $size = $self->size;

    my $data = $self->data;
    return join '', ( chr(0) ) x ($size - length $data), $data;
}


1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MsgPack::Type::Ext

=head1 VERSION

version 2.0.3

=head1 AUTHOR

Yanick Champoux <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2019, 2017, 2016, 2015 by Yanick Champoux.

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

=cut