File Coverage

blib/lib/Locale/TextDomain/OO/Lexicon/Role/StoreFile.pm

Criterion	Covered	Total	%
statement	25	34	73.5
branch	2	12	16.6
condition	0	3	0.0
subroutine	8	8	100.0
pod	1	1	100.0
total	36	58	62.0

package Locale::TextDomain::OO::Lexicon::Role::StoreFile; ## no critic (TidyCode)

use strict;
use warnings;
use Carp qw(confess);
use English qw(-no_match_vars $OS_ERROR);
use Moo::Role;
use MooX::Types::MooseLike::Base qw(Str);
use namespace::autoclean;

our $VERSION = '1.017';

has filename => (
    is  => 'ro',
    isa => Str,
);

has file_handle => (
    is       => 'ro',
    ducktype => 'print',
);

sub store_content {
    my ($self, $content) = @_;

    if ( $self->file_handle ) {
        my $quoted_filename = $self->filename;
        $quoted_filename &&= qq{"$quoted_filename"};
        $self->file_handle->print( $self->file_handle, $content )
            or confess qq{Unable to print file$quoted_filename $OS_ERROR};
        return;
    }
    if ( $self->filename ) {
        my $filename = $self->filename;
        open my $file_handle, q{> :raw}, $self->filename
            or confess qq{Unable to open file "$filename" $OS_ERROR};
        $file_handle->print($content)
            or confess qq{Unable to print file "$filename" $OS_ERROR};
        $file_handle->close
            or confess qq{Unable to close file "$filename" $OS_ERROR};
        return;
    }

    return $content;
}

1;

__END__