#!/usr/bin/perl
use strict;
use warnings;
use Boss1;
use Data::Dumper;

Boss1->debug(1);
my $boss = Boss1->new();

$boss->fullname->title("Don");
$boss->fullname->surname("Pichon Alvarez");
$boss->fullname->christian("Federico Jesus");
$boss->fullname->nickname("Fred");
$boss->salary(40000);

$boss->age(47);
$boss->peers("Frank", "Felipe", "Faust");

printf "%s is age %d.\n", $boss->fullname->as_string, $boss->age;
printf "His peers are: %s\n", join(", ", $boss->peers);

print "here is the boss\n";
print Dumper($boss);