File Coverage

blib/lib/DMOSS/Plugin.pm

Criterion	Covered	Total	%
statement	9	26	34.6
branch	0	8	0.0
condition			n/a
subroutine	3	7	42.8
pod	3	5	60.0
total	15	46	32.6

package DMOSS::Plugin;
# ABSTRACT: DMOSS base class for plugins
$DMOSS::Plugin::VERSION = '0.01_2';
use strict;
use warnings;

my @types = ();

sub new {
  my ($class) = @_;
  my $self = bless({}, $class);

  return $self;
}

sub name {
  my ($self) = @_;

  return(ref $self);
}

sub process { print "default process" }

sub grade {
    my ($self, $num) = @_;

    return 'F' if $num < 0.1;
    return 'D' if $num < 0.4;
    return 'C' if $num < 0.6;
    return 'B' if $num < 0.8;
    return 'A';
}

sub grade_html_box {
    my ($self, $grade, $title, $more) = @_;
    my $tag = lc $title;
    $tag =~ s/\W+/_/g;

    my $html = "\b";
    $html .= "$grade$title\n";
    $html .= "$more";
    $html .= "\n";

    return $html;
}

1;

__END__