Thread Perl OOP (12 answers)
Opened by sid burn at 2006-09-21 19:24

pq
 2006-09-22 17:31
#70148 #70148
User since
2003-08-04
12209 Artikel
Admin1
[Homepage]
user image
[quote=renee,22.09.2006, 14:38]
Code: (dl )
1
2
3
4
5
6
7
8
9
package User;

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

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

1;
[/quote]
und mit duration:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;

finde ich verständlich und kurz. wobei ich set_ und get_ methoden
bevorzuge (geht mit User->follow_best_practice). das hat
u.a. den vorteil, dass man auch leicht readonly-klassen erzeugen kann
und man den unterschied sehr schnell sieht. naja, PBP hat mich da
überzeugt =)\n\n

<!--EDIT|pq|1158932718-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread Perl OOP