SL/Controller/Layout/Classic.pm

   1 package SL::Controller::Layout::Classic;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Layout::Base);
   5
   6 use SL::Controller::Layout::Top;
   7 use SL::Controller::Layout::MenuLeft;
   8
   9 sub new {
  10   my ($class, @slurp) = @_;
  11
  12   my $self = $class->SUPER::new(@slurp);
  13
  14   $self->add_sub_layouts([
  15     SL::Controller::Layout::Top->new,
  16     SL::Controller::Layout::MenuLeft->new,
  17   ]);
  18
  19   $self;
  20 }
  21
  22 1;