File Coverage

blib/lib/App/VW.pm

Criterion	Covered	Total	%
statement	24	32	75.0
branch	0	2	0.0
condition			n/a
subroutine	8	12	66.6
pod	0	3	0.0
total	32	49	65.3

package App::VW;

use strict;
use warnings;
use base 'App::CLI';
use Config;
use YAML 'LoadFile';

our $VERSION = '0.01';

our $config = {
  etc       => '/etc/vw',
  perl      => $Config{perlpath},
  init      => '/etc/init.d/vw',
  pid_file  => '/var/run/vw.pid',
};

sub config {
  my ($class) = @_;
  $config->{apps} = $class->apps;
  $config;
}

sub apps {
  my ($class) = @_;
  my @apps = map { LoadFile($_) } sort glob("$config->{etc}/*.yml");
  \@apps;
}

sub error_cmd {
  my ($self) = @_;
  "That command does not exist.\n";
}

package App::VW::Command;
use base 'App::CLI::Command';

sub options {
  (
    'verbose|v' => 'verbose',
    'help|h'    => 'help'
  )
}

sub run {
  my ($self) = @_;
  print "Not Implmenented, Yet.\n";
}

sub verbose {
  my ($self, @message) = @_;
  print @message, "\n" if ($self->{verbose});
}

1;

__END__