lib/WebCoso/Config/Collection.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package WebCoso::Config::Collection; 
use strict;
use warnings;
use Class::Std;
use WebCoso::Config;
 
{
my %name_of :ATTR( :init_arg<name> );
 
sub BUILD {
    my ($self,$ident,$args_ref)=@_;
    WebCoso::Config->add_collection($self);
}
 
}
 
1;