1 package App::Clifton::BridgeConfigSet;
3 use aliased 'App::Clifton::BridgeConfig';
4 use aliased 'App::Clifton::BridgeConfig::Jabber' => 'BridgeConfig_Jabber';
5 use aliased 'App::Clifton::BridgeConfig::IRC' => 'BridgeConfig_IRC';
8 with 'App::Clifton::Set';
10 sub _set_of_class { BridgeConfig }
11 sub _set_over { 'name' }
13 sub _spec_to_constructor_args {
14 my ($self, $spec) = @_;
16 jabber => BridgeConfig_Jabber->new($spec->{jabber}),
17 irc => BridgeConfig_IRC->new($spec->{irc}),