File Coverage

samples/1-methods/lib/Derived.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	0	3	0.0
total	16	28	57.1

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

use strict;
use warnings;

use File::AddInc;
use parent qw(Greetings_oo_modulino);

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 good_morning { my $self = shift; join(" ", "Good morning" => $self->{name}, @_)}

sub good_afternoon { my $self = shift; join(" ", "Good afternoon" => $self->{name}, @_)}

sub good_evening { my $self = shift; join(" ", "Good evening" => $self->{name}, @_)}

1;