File Coverage

blib/lib/App/Sky/Module.pm

Criterion	Covered	Total	%
statement	43	45	95.5
branch	7	10	70.0
condition	2	2	100.0
subroutine	11	11	100.0
pod	1	1	100.0
total	64	69	92.7

package App::Sky::Module;
$App::Sky::Module::VERSION = '0.4.1';
use strict;
use warnings;


use Carp ();

use Moo;
use MooX 'late';

use URI;
use File::Basename qw(basename);

use List::MoreUtils qw( uniq );

use App::Sky::Results;
use App::Sky::Exception;

has base_upload_cmd        => ( isa => 'ArrayRef[Str]', is => 'ro', );
has dest_upload_prefix     => ( isa => 'Str',           is => 'ro', );
has dest_upload_url_prefix => ( isa => 'Str',           is => 'ro', );


sub get_upload_results
{
    my ( $self, $args ) = @_;

    my $is_dir = ( $args->{is_dir} // 0 );

    my $filenames = $args->{filenames}
        or Carp::confess("Missing argument 'filenames'");

    if ( @$filenames != 1 )
    {
        Carp::confess("More than one file passed to 'filenames'");
    }

    my $target_dir = $args->{target_dir}
        or Carp::confess("Missing argument 'target_dir'");

    my $invalid_chars_re = qr/[:]/;

    my @invalid_chars =
        ( map { split( //, $_ ) } map { /($invalid_chars_re)/g } @$filenames );

    if (@invalid_chars)
    {
        App::Sky::Exception::Upload::Filename::InvalidChars->throw(
            invalid_chars => [ sort { $a cmp $b } uniq(@invalid_chars) ], );
    }

    return App::Sky::Results->new(
        {
            upload_cmd => [
                @{ $self->base_upload_cmd() },
                @$filenames,
                ( $self->dest_upload_prefix() . $target_dir ),
            ],
            urls => [
                URI->new(
                          $self->dest_upload_url_prefix()
                        . $target_dir
                        . basename( $filenames->[0] )
                        . ( $is_dir ? '/' : '' )
                ),
            ],
        }
    );
}

1;

__END__