#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Getopt::Long;

use pm_moose_default_params;

my $colour = '';
my $shape = '';

GetOptions('colour=s' => \$colour, 'shape=s' => \$shape);

say "Option --colour = $colour";
say "Option --shape = $shape";

my %param;
$param{colour} = $colour if $colour;
$param{shape} = $shape if $shape;

say "Param $_ = $param{$_}" for keys %param;

my $object = pm_moose_default_params::->new(%param);

say 'Moose colour = ', $object->colour;
say 'Moose shape = ', $object->shape;