Layout package names refactored

[mfinanz.git] / SL / Layout / Login.pm

diff --git a/SL/Layout/Login.pm b/SL/Layout/Login.pm
new file mode 100644 (file)
index 0000000..ed649d0
--- /dev/null
+++ b/SL/Layout/Login.pm
@@ -0,0 +1,26 @@
+package SL::Layout::Login;
+
+use strict;
+use parent qw(SL::Layout::Base);
+
+sub new {
+  my ($class, @slurp) = @_;
+
+  my $self = $class->SUPER::new(@slurp);
+
+  $self->add_sub_layouts([
+    SL::Layout::None->new,
+  ]);
+
+  $self;
+}
+
+sub start_content {
+  "<div id='login' class='login'>\n";
+}
+
+sub end_content {
+  "</div>\n";
+}
+
+1;