File: BaseInheritedGroups.pm

package info (click to toggle)
libclass-accessor-grouped-perl 0.08001-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 220 kB
  • ctags: 134
  • sloc: perl: 1,678; makefile: 43
file content (12 lines) | stat: -rw-r--r-- 211 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
package BaseInheritedGroups;
use strict;
use warnings;
use base 'Class::Accessor::Grouped';

__PACKAGE__->mk_group_accessors('inherited', 'basefield', 'undefined');

sub new {
    return bless {}, shift;
};

1;