This shows you the differences between two versions of the page.
kurs:bla.pm [2014/09/10 21:22] |
kurs:bla.pm [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | package Bla; | ||
+ | use strict; | ||
+ | use warnings; | ||
+ | use base qw(Class::Accessor); | ||
+ | # auch Class::Accessor::Complex ansehen! | ||
+ | |||
+ | Bla->mk_accessors(qw(name role salary)); | ||
+ | |||
+ | 1; | ||
+ | </code> |