File Coverage

samples/1-methods/lib/Greetings_oo_modulino.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch			n/a
condition			n/a
subroutine	2	5	40.0
pod	0	3	0.0
total	8	20	40.0

#!/usr/bin/env perl
package
  Greetings_oo_modulino;
use strict;
use warnings;

unless (caller) {
  my $self = __PACKAGE__->new(name => "world");

  my $cmd = shift @ARGV
    or die "Usage: $0 COMMAND ARGS...\n";

  if (my $sub = $self->can("cmd_$cmd")) {
    $sub->($self, @ARGV)
  }
  elsif ($sub = $self->can("$cmd")) {
    print $self->$cmd(@ARGV), "\n";
  }
  else {
    die "Unknown command: $cmd\n";
  }
}

sub new  { my $class = shift; bless +{@_}, $class }

sub hello { my $self = shift; join " ", "Hello", $self->{name} }

sub hi { my $self = shift; join " ", "Hi", $self->{name} }

1;