File Coverage

blib/lib/WebServer/DirIndex/CSS.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package WebServer::DirIndex::CSS; # For cpanm :-(

use strict;
use warnings;
use Feature::Compat::Class;

our $VERSION = '0.1.4';

class WebServer::DirIndex::CSS {

  field $pretty :param = 0;

  field $standard_css :reader = <
table {
  width: 100%;
}
.icon {
  width: 1.5em;
  text-align: center;
}
.name {
  text-align: left;
}
.size, .mtime {
  text-align: right;
}
.type {
  width: 11em;
}
.mtime {
  width: 15em;
}
CSS

  field $pretty_css :reader = <
body {
  color: #000;
  background-color: #fff;
  font-family: Calibri, Candara, Segoe, Segoe UI, Helvetica Neue, Helvetica, Optima, Arial, sans-serif;
  font-size: normal 1em sans-serif;
  text-align: center;
  padding: 0;
  margin: 0;
}

h2 {
 font-size: 2.000em;
 font-weight: 700;
}

table {
  width: 90%;
  margin: 3em;
  border: 1px solid #aaa;
  border-collapse: collapse;
  background-color: #eee;
}

thead {
  background-color: #bbb;
  font-weight: 700;
  font-size: 1.300em;
}

td, th {
  padding: 1em;
  text-align: left;
  border-bottom: 1px solid #999999;
  color: #000;
}

tr:nth-child(even) {
  background: #ccc;
}

.icon {
  width: 1.5em;
  text-align: center;
}

.size {
  text-align: right;
  padding-right: 1.700em;
}

a:link {
  font-size: 1.200em;
  font-weight: 500;
  color: #000;
  text-decoration: none;
}

a:link:hover {
  text-decoration: underline;
}

a:visited {
  font-size: 1.200em;
  font-weight: 500;
  color: #301934;
  text-decoration: none;
}
CSS

  method css {
    return $pretty ? $pretty_css : $standard_css;
  }
}

1;

__END__