File Coverage

blib/lib/Crypt/OpenPGP/UserAttribute.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	0	5	0.0
total	30	37	81.0

package Crypt::OpenPGP::UserAttribute;
use strict;
use warnings;

our $VERSION = '1.19'; # VERSION

use Crypt::OpenPGP::ErrorHandler;
use base qw( Crypt::OpenPGP::ErrorHandler );

sub new {
    my $id = bless { }, shift;
    $id->init(@_);
}

sub init {
    my $id = shift;
    $id;
}

sub id { $_[0]->{blob} }
sub parse {
    my $class = shift;
    my($buf) = @_;
    my $id = $class->new;
    $id->{blob} = $buf->bytes;
    $id;
}

sub save { $_[0]->{blob} }

1;