#!/usr/bin/perl

use strict;
use warnings;
use Error qw(:try);
use Data::Dumper;

my $main = bless{}, 'main';
my $names = [qw(Tine Horst Fritz)];

try{ 
        $main->setNames($names)->addName('Rolf')->addName('Tobias')->revNames();
        print "Names: @$names\n";
}
catch Error::Simple with{
        my $E = shift;
        print Dumper $E;
};

exit 0;
###########################################################################
sub revNames{
        my $self = shift;
        my $r    = shift;
        @{$self->{NAMES}} = reverse @{$self->{NAMES}};
}

sub addName{
        my $self = shift;
        my $name = shift or throw Error::Simple("Kein Name übergeben!");
        push @{$self->{NAMES}}, $name;
        return $self;
}

sub setNames{
        my $self = shift;
        my $r    = shift;
        throw Error::Simple("Kein Array ...") unless ref $r eq 'ARRAY';
        $self->{NAMES} = $r;    
        return $self;
}