App-Sky

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    "utf8" => 0,
    "warnings" => 0
  },
  "script_files" => [
    "bin/sky"
  ],
  "test_requires" => {
    "File::Spec" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::Differences" => 0,
    "Test::More" => "0.88"
  }
);


my %fallback_build_requires = (
  "File::Spec" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "Module::Build" => "0.28",
  "Test::Differences" => 0,
  "Test::More" => "0.88"
);


unless ( eval { Module::Build->VERSION(0.4004) } ) {
  delete $module_build_args{test_requires};
  $module_build_args{build_requires} = \%fallback_build_requires;
}

my $build = Module::Build->new(%module_build_args);

META.json  view on Meta::CPAN

            "strict" : "0",
            "utf8" : "0",
            "warnings" : "0"
         }
      },
      "test" : {
         "requires" : {
            "File::Spec" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Test::Differences" : "0",
            "Test::More" : "0.88"
         }
      }
   },
   "provides" : {
      "App::Sky" : {
         "file" : "lib/App/Sky.pm",
         "version" : "v0.8.0"
      },
      "App::Sky::CmdLine" : {

META.yml  view on Meta::CPAN

---
abstract: 'wrapper to rsync/etc. to upload files to a remote server and give download links.'
author:
  - 'Shlomi Fish <shlomif@cpan.org>'
build_requires:
  File::Spec: '0'
  IO::Handle: '0'
  IPC::Open3: '0'
  Module::Build: '0.28'
  Test::Differences: '0'
  Test::More: '0.88'
configure_requires:
  Module::Build: '0.28'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.033, CPAN::Meta::Converter version 2.150010'
license: mit
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-Sky

t/config-validate.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use File::Spec ();

use Test::Differences (qw( eq_or_diff ));

use YAML::XS (qw( LoadFile ));

use App::Sky::Config::Validate ();

package main;

{
    my $config = LoadFile(
        File::Spec->catfile(

t/manager.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 26;

use Test::Differences (qw( eq_or_diff ));

use App::Sky::Manager ();

package ManagerTester;

use MooX qw/late/;

use Test::More;

use Test::Differences (qw( eq_or_diff ));

has 'manager' => ( isa => 'App::Sky::Manager', is => 'ro' );

# TEST:$c=0;
sub test_upload_results
{
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my ( $self, $args, $blurb_base ) = @_;

    my $results = $self->manager->get_upload_results( $args->{input} );

t/module.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 14;

use Test::Differences (qw( eq_or_diff ));

use App::Sky::Module    ();
use App::Sky::Exception ();

{
    my $m = App::Sky::Module->new(
        {
            base_upload_cmd        => [qw(rsync -a -v --progress --inplace)],
            dest_upload_prefix     => 'hostgator:public_html/',
            dest_upload_url_prefix => 'http://www.shlomifish.org/',