File Coverage

blib/lib/WebService/TVDB/Util.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	6	66.6
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	30	32	93.7

package WebService::TVDB::Util;
{
  $WebService::TVDB::Util::VERSION = '1.133200';
}

use strict;
use warnings;

# ABSTRACT: Utility functions

require Exporter;
our @ISA         = qw(Exporter);
our @EXPORT_OK   = qw(pipes_to_array get_api_key_from_file);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

sub pipes_to_array {
    my $string = shift;
    return unless $string;

    my @array;
    for ( split( /\|/, $string ) ) {
        next unless $_;
        push @array, $_;
    }

    return \@array;
}

sub get_api_key_from_file {
    my ($file) = @_;

    return do {
        local $/ = undef;
        open my $fh, "<", $file
          or die "could not open $file: $!";
        my $doc = <$fh>;

        # ensure there are no carriage returns
        $doc =~ s/(\r|\n)//g;

        return $doc;
    };
}

__END__