File Coverage

blib/lib/Sledge/Plugin/ShowText.pm

Criterion	Covered	Total	%
statement	16	26	61.5
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	1	0.0
total	21	33	63.6

package Sledge::Plugin::ShowText;
use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.03';

sub import {
    my $class = shift;
    my $pkg   = caller(0);

    no strict 'refs';
    *{"$pkg\::show_text"}    = \&show_text;
}

sub show_text {
    my $self         = shift;
    my $content      = shift;

    $self->r->header_out('Pragma'        => 'no-cache');
    $self->r->header_out('Cache-Control' => 'no-cache');

    $self->r->content_type("text/plain");
    $self->set_content_length(length $content);
    $self->send_http_header;
    $self->r->print($content);
    $self->invoke_hook('AFTER_OUTPUT');
    $self->finished(1);
}

1;
__END__