File Coverage

blib/lib/File/Comments/Plugin/Java.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	0	4	0.0
total	22	32	68.7

###########################################
# File::Comments::Plugin::Java
# 2005, Mike Schilli
###########################################

###########################################
package File::Comments::Plugin::Java;
###########################################

use strict;
use warnings;
use File::Comments::Plugin::C;
use Log::Log4perl qw(:easy);

our $VERSION = "0.01";
our @ISA     = qw(File::Comments::Plugin::C);

###########################################
sub init {
###########################################
    my($self) = @_;

    $self->register_suffix(".java");
}

###########################################
sub type {
###########################################
    my($self, $target) = @_;

    return "java";
}

###########################################
sub comments {
###########################################
    my($self, $target) = @_;

    return $self->extract_c_comments($target);
}

###########################################
sub stripped {
###########################################
    my($self, $target) = @_;

    return $self->strip_c_comments($target);
}

1;

__END__