lib/App/Clifton/BridgeConfigSet.pm

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