Bat-Interpreter

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

  "recursive_test_files" => 1,
  "requires" => {
    "App::BatParser" => "0.011",
    "Carp" => 0,
    "Data::Dumper" => 0,
    "File::Glob" => 0,
    "Moo" => 0,
    "Moo::Role" => 0,
    "Path::Tiny" => 0,
    "Types::Standard" => 0,
    "namespace::autoclean" => 0,
    "perl" => "5.014",
    "utf8" => 0
  },
  "test_requires" => {
    "English" => 0,
    "Test::Exception" => 0,
    "Test::More" => 0,
    "Test::Most" => 0,
    "strict" => 0,
    "warnings" => 0

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "App::BatParser" : "0.011",
            "Carp" : "0",
            "Data::Dumper" : "0",
            "File::Glob" : "0",
            "Moo" : "0",
            "Moo::Role" : "0",
            "Path::Tiny" : "0",
            "Types::Standard" : "0",
            "namespace::autoclean" : "0",
            "perl" : "5.014",
            "utf8" : "0"
         }
      },
      "test" : {
         "requires" : {
            "English" : "0",
            "Test::Exception" : "0",
            "Test::More" : "0",
            "Test::Most" : "0",

META.yml  view on Meta::CPAN

name: Bat-Interpreter
requires:
  App::BatParser: '0.011'
  Carp: '0'
  Data::Dumper: '0'
  File::Glob: '0'
  Moo: '0'
  Moo::Role: '0'
  Path::Tiny: '0'
  Types::Standard: '0'
  namespace::autoclean: '0'
  perl: '5.014'
  utf8: '0'
resources:
  bugtracker: https://github.com/pablrod/p5-Bat-Interpreter/issues
  homepage: https://github.com/pablrod/p5-Bat-Interpreter
  repository: https://github.com/pablrod/p5-Bat-Interpreter.git
version: '0.025'
x_contributors:
  - 'andres.mari <andres.mari@meteologica.com>'
  - 'eva.dominguez <eva.dominguez@meteologica.com>'

lib/Bat/Interpreter.pm  view on Meta::CPAN

use 5.014;
use Moo;
use Types::Standard qw(ConsumerOf);
use App::BatParser 0.011;
use Carp;
use Data::Dumper;
use Bat::Interpreter::Delegate::FileStore::LocalFileSystem;
use Bat::Interpreter::Delegate::Executor::PartialDryRunner;
use Bat::Interpreter::Delegate::LineLogger::Silent;
use File::Glob;
use namespace::autoclean;

our $VERSION = '0.025';    # VERSION

# ABSTRACT: Pure perl interpreter for a small subset of bat/cmd files

has 'batfilestore' => (
    is      => 'rw',
    isa     => ConsumerOf ['Bat::Interpreter::Role::FileStore'],
    default => sub {
        Bat::Interpreter::Delegate::FileStore::LocalFileSystem->new;

lib/Bat/Interpreter/Delegate/Executor/DryRunner.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::Executor::DryRunner;

use utf8;

use Moo;
use Types::Standard qw(ArrayRef);
use namespace::autoclean;

with 'Bat::Interpreter::Role::Executor';

our $VERSION = '0.025';    # VERSION

has 'commands_executed' => ( is      => 'ro',
                             isa     => ArrayRef,
                             default => sub { [] },
);

lib/Bat/Interpreter/Delegate/Executor/PartialDryRunner.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::Executor::PartialDryRunner;

use utf8;

use Moo;
use Types::Standard qw(ArrayRef);
use namespace::autoclean;

with 'Bat::Interpreter::Role::Executor';

our $VERSION = '0.025';    # VERSION

has 'commands_executed' => ( is      => 'ro',
                             isa     => ArrayRef,
                             default => sub { [] },
);

lib/Bat/Interpreter/Delegate/Executor/System.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::Executor::System;

use utf8;

use Moo;
use namespace::autoclean;

with 'Bat::Interpreter::Role::Executor';

our $VERSION = '0.025';    # VERSION

sub execute_command {
    my $self    = shift();
    my $command = shift();
    return system($command);
}

lib/Bat/Interpreter/Delegate/FileStore/LocalFileSystem.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::FileStore::LocalFileSystem;

use utf8;

use Moo;
use Path::Tiny;
use namespace::autoclean;

with 'Bat::Interpreter::Role::FileStore';

our $VERSION = '0.025';    # VERSION

sub get_contents {
    my $self     = shift();
    my $filename = shift();
    $filename = Path::Tiny::path($filename);
    return $filename->slurp;

lib/Bat/Interpreter/Delegate/LineLogger/Silent.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::LineLogger::Silent;

use utf8;

use Moo;
use Types::Standard qw(ArrayRef);
use namespace::autoclean;

with 'Bat::Interpreter::Role::LineLogger';

our $VERSION = '0.025';    # VERSION

sub log_line {
    my $self = shift();
    return 0;
}

lib/Bat/Interpreter/Delegate/LineLogger/SilentSaveLines.pm  view on Meta::CPAN

package Bat::Interpreter::Delegate::LineLogger::SilentSaveLines;

use utf8;

use Moo;
use Types::Standard qw(ArrayRef);
use namespace::autoclean;

with 'Bat::Interpreter::Role::LineLogger';

our $VERSION = '0.025';    # VERSION

has 'lines' => ( is      => 'ro',
                 isa     => ArrayRef,
                 default => sub { [] },
);

lib/Bat/Interpreter/Role/Executor.pm  view on Meta::CPAN

package Bat::Interpreter::Role::Executor;

use utf8;

use Moo::Role;
use namespace::autoclean;

our $VERSION = '0.025';    # VERSION

requires 'execute_command';

requires 'execute_for_command';

1;

__END__

lib/Bat/Interpreter/Role/FileStore.pm  view on Meta::CPAN

package Bat::Interpreter::Role::FileStore;

use utf8;

use Moo::Role;
use namespace::autoclean;

our $VERSION = '0.025';    # VERSION

requires 'get_contents';

1;

__END__

=pod

lib/Bat/Interpreter/Role/LineLogger.pm  view on Meta::CPAN

package Bat::Interpreter::Role::LineLogger;

use utf8;

use Moo::Role;
use namespace::autoclean;

our $VERSION = '0.025';    # VERSION

requires 'log_line';

1;

__END__

=pod

 view all matches for this distribution
 view release on metacpan -  search on metacpan