File: HasExtraFields.pm

package info (click to toggle)
libmixin-extrafields-perl 0.140003-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 220 kB
  • sloc: perl: 411; makefile: 2
file content (28 lines) | stat: -rw-r--r-- 488 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 

use strict;
use warnings;

package Object::HasExtraFields;

use Carp ();

use Mixin::ExtraFields
  -fields => {
    driver => { class => 'HashGuts', hash_key => '_extra' },
    id => 'alt_id',
  },
  -fields => { driver => 'HashGuts',       moniker => 'misc' },
  -fields => { driver => '+MEFD::Minimal', moniker => 'mini' };

sub new {
  return bless {} => shift;
}

sub id {
  return unless ref $_[0];
  "id_" . (0 + $_[0]);
}

sub alt_id { 0 } # pretty lame for a unique id, huh?

1;