$user->user

$user->user('anne')

$user->duration->add(1)

#!/usr/bin/perl
use warnings;
use strict;
use constant TRUE  => 1;
use constant FALSE => 0;
use FindBin qw($Bin);

{ package user::name;
    sub new {
        my $class = shift;
        my $name  = shift;
        bless \$name, $class;
    }
    sub get {
        my $self = shift;
        return $$self;
    }
    sub set {
        my $self = shift;
        $$self = shift;
    }
}

{ package user::password;
    sub new {
        my $class    = shift;
        my $password = shift;
        bless \$password, $class;
    }
    sub get {
        my $self = shift;
        return $$self;
    }
    sub set {
        my $self = shift;
        $$self = shift;
    }
}

{ package user;
    sub new {
        my $self = bless {}, shift;
        my %options = @_;
        $self->{name}     = user::name->new    ( $options{name}     );
        $self->{password} = user::password->new( $options{password} );
        return $self;
    }
    sub name     {
        my $self = shift;
        $self->{name};
    }
    sub password {
        my $self = shift;
        $self->{password};
    }
}

my $paul = user->new(
    name     => 'paul',
    password => 'passwd' ,
);

my $anne = user->new(
    name     => 'anne',
    password => 'nopwd',
);


print $paul->name->get, "\n", $paul->password->get, "\n";
print "\n";
print $anne->name->get, "\n", $anne->password->get, "\n";

paul
passwd

anne
nopwd

{ package user;
    { #start lexical scope
        my @class_attributes = qw/ name password /;

        no strict 'refs';
        for my $attribute ( @class_attributes ) {
            # Create new Package with Overload
            eval 'package '.__PACKAGE__.'::'.$attribute.';'.'use overload \'""\' => \&get;';
            # Create method new for new package
            *{__PACKAGE__.'::'.$attribute.'::'.'new'} = sub {
                die "Not enough Paramters" if @_ < 2;
                bless \$_[1], $_[0];
            };
            # Create method set/get for new package
            *{__PACKAGE__.'::'.$attribute.'::'.'get'} = sub { return ${$_[0]}   };
            *{__PACKAGE__.'::'.$attribute.'::'.'set'} = sub { ${$_[0]} = $_[1]  };

            # Create Methods in this package to Call the Classes
            *{$attribute} = sub {
                my $self = shift;
                if (@_) { $self->{$attribute}->set(@_) }
                else    { $self->{$attribute}          }
            };
        }
    } #end lexical scope

    sub new {
        my $self = bless {}, shift;
        my %options = @_;
        $self->{name}     = user::name->new    ( $options{name}     );
        $self->{password} = user::password->new( $options{password} );
        return $self;
    }
}

my $paul = user->new;
$paul->name("Paulchen");
$paul->password("123456");

my $anne = new user;
$anne->name("anne");
$anne->password("654321");

print $paul->name, "\n", $paul->password, "\n";
print "\n";
print $anne->name, "\n", $anne->password, "\n";

package User;

use strict;
use warnings;
use base 'Class::Accessor';

User->mk_accessors(qw/name passwort/);

1;

#!/usr/bin/perl

use strict;
use warnings;
use User;

my $user = User->new();
$user->name('test');

print $user->name();

package User;

use strict;
use warnings;
use base 'Class::Accessor';

User->mk_accessors(qw/name passwort/);

1;

package User;

use strict;
use warnings;
use base 'Class::Accessor';
# User->follow_best_practice; # get_* und set_*
User->mk_accessors(qw/name passwort duration/);

sub add_duration {
  $_[0]->duration(
    $_[0]->duration() + $_[1]
  );
}
1;