File Coverage

blib/lib/Tiny/OpenSSL/Role/Entity.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	35	39	89.7

use strict;
use warnings;

package Tiny::OpenSSL::Role::Entity;

# ABSTRACT: Provides common tasks for Tiny::OpenSSL objects.
our $VERSION = '0.1.2'; # VERSION

use Moo::Role;
use Types::Standard qw( Str InstanceOf );
use Path::Tiny;

has ascii => ( is => 'rw', isa => Str );

has file => (
    is      => 'rw',
    isa     => InstanceOf ['Path::Tiny'],
    default => sub { return Path::Tiny->tempfile; }
);

sub write {
    my $self = shift;

    if ( $self->file ) {
        $self->file->spew( $self->ascii );
    }

    return 1;
}

sub load {
    my $self = shift;

    if ( -f $self->file && $self->file->lines > 0 ) {
        $self->ascii( $self->file->slurp );
    }

    return 1;
}

1;

__END__