package Miril::Theme::Flashyweb; use strict; use warnings; use autodie; use Miril::Theme::Flashyweb::Stylesheet; ### TEMPLATES ### my $account = <

Name:

New password:

Retype new password:

Existing password: (Required)

    
EndOfHTML my $edit = <

New Article

Title:
invalid" value='' />

ID:
invalid" value='' />

Type:

Author:

Status:

Topic:

Body:

         
EndOfHTML my $files = <

Files

Size: Modified:

EndOfHTML my $upload = <

Upload Files

EndOfHTML my $footer = <
 
EndOfHTML my $header = < Miril

miril encountered problems:

EndOfHTML my $list = <

List of entries

Status: Modified:

EndOfHTML my $search = <

Search entries

Title contains:

Type:

Author:

Status:

Topic:

EndOfHTML my $login = <

Sign in

EndOfHTML my $publish = <

Publish

EndOfHTML my $sidebar = < EndOfHTML my $view = <

    
EndOfHTML my $error = < EndOfHTML my $pager = <firstfirst «previous«previous next»next» lastlast EndOfHTML ### METHODS ### sub new { return bless {}, shift; } sub get { my $self = shift; my $name = shift; $name eq "css" && return Miril::Theme::Flashyweb::Stylesheet::get(); $name eq "account" && return $account; $name eq "edit" && return $edit; $name eq "files" && return $files; $name eq "footer" && return $footer; $name eq "header" && return $header; $name eq "list" && return $list; $name eq "login" && return $login; $name eq "publish" && return $publish; $name eq "sidebar" && return $sidebar; $name eq "view" && return $view; $name eq "upload" && return $upload; $name eq "error" && return $error; $name eq "search" && return $search; $name eq "pager" && return $pager; } 1;