File Coverage

blib/lib/Net/Telnet/Netgear/Packet/String.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	34	35	97.1

#!/usr/bin/env perl
package Net::Telnet::Netgear::Packet::String;
use strict;
use warnings;
use parent "Net::Telnet::Netgear::Packet";
use Carp;
use MIME::Base64;

our @CARP_NOT = qw ( Net::Telnet::Netgear::Packet );

sub new
{
    my ($self, $content, $is_base64) = @_;
    Carp::croak "The Telnet packet is missing." unless defined $content;
    bless { is_base64 => defined $is_base64, content => $content }, $self;
}

sub from_base64
{
    shift->new (shift, 1);
}

sub get_packet
{
    $_[0]->{is_base64} ? decode_base64 ($_[0]->{content}) : $_[0]->{content};
}

1;