view release on metacpan or  search on metacpan

CVS.pm  view on Meta::CPAN

            $self->handle_graph($uri_base, $query{'r'});
        } else {
            $self->print_http_header();
            $self->print_page_header();
            $self->handle_file($uri_base, $query{'ds'}, $query{'o'},
                               $query{'asc'});
        }
    }
}

sub handler($$) {

    my ($self, $request) = @_;

    delete $ENV{'PATH'};

    $self = $self->new($request) unless ref $self;

    eval {
        $self->handler_internal();
    };

CVS/HTML.pm  view on Meta::CPAN

    $self->request()->print('<td class=$css_class{directory_data}>'
                            . localtime($revision->date())
                            . '</td>');

    my $age = join(', ',
                   map { $revision->age()->{$_} . ' ' . $_ } @time_units);
    $self->request()->print("<td class=$css_class{directory_data}>$age</td>");
    $self->request()->print('</tr>');
}

sub print_plain_file() {
    my ($self, $file, $row_number) = @_;
    if ($row_number % 2) {
        $self->request()->print("<tr class=$css_class{directory_odd_row}>");
    } else {
        $self->request()->print("<tr class=$css_class{directory_even_row}>");
    }
    $self->request()->print('<td class=$css_class{directory_data}>'
                            . $file->name()
                            . '</td>');
    $self->request()->print('<td class=$css_class{directory_data}>&nbsp;</td>