File Coverage

samples/3-mop4import-declare/Greetings_CLI_JSON.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	20	60.0

#!/usr/bin/env perl
package
  Greetings_CLI_JSON;

use MOP4Import::Base::CLI_JSON -as_base
  , [fields =>
     [name => doc => 'Name of someone to be greeted'
      , default => 'world'
    ],
     qw/no-thanx x y/
   ];

sub hello :Doc(Say hello to someone) {
  my MY $self = shift;
  join " ", "Hello", $self->{name}
}

sub hi :Doc(Say Hi to someone) {
  my MY $self = shift; join " ", "Hi", $self->{name}
}

MY->cli_run(\@ARGV) unless caller;

1;