########################################### # 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__ =head1 NAME File::Comments::Plugin::Java - Plugin to detect comments in Java source code =head1 SYNOPSIS use File::Comments::Plugin::Java; =head1 DESCRIPTION File::Comments::Plugin::Java is a plugin for the File::Comments framework. Both /* ... */ and // style comments are recognized. This is I a full-blown C parser/preprocessor yet, so it gets easily confused (e.g. if c strings contain comment sequences). =head1 LEGALESE Copyright 2005 by Mike Schilli, all rights reserved. This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =head1 AUTHOR 2005, Mike Schilli