File Coverage

samples/2-options/lib/Greetings_oo_modulino_with_fields.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	2	0.0
condition	0	5	0.0
subroutine	3	7	42.8
pod	0	3	0.0
total	12	40	30.0

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

use fields qw/name no-thanx x y/;
sub MY () {__PACKAGE__}

unless (caller) {
  my $self = MY->new(name => 'world', MY->_parse_posix_opts(\@ARGV));

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

  print $self->$cmd(@ARGV), "\n";
}

sub _parse_posix_opts {
  my ($class, $list) = @_;
  my @opts;
  while (@$list and $list->[0] =~ /^--(?:(\w+)(?:=(.*))?)?\z/s) {
    shift @$list;
    last unless defined $1;
    push @opts, $1, $2 // 1;
  }
  @opts;
}

sub new  { my MY $self = fields::new(shift); %$self = @_; $self }

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

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

1;