view release on metacpan or  search on metacpan

lib/Comment/Block.pm  view on Meta::CPAN

use Filter::Util::Call;

$Comment::Block::VERSION = "0.01";

#ABSTRACT: Comment::Block - Makes Block Comments Possible

sub import {
    my ($type) = @_;
    my (%context) = (
        _inBlock => 0,
        _filename => (caller)[1],
        _line_no => 0,
        _last_begin => 0,
    );
    filter_add(bless \%context);
}

sub error {
    my ($self) = shift;
    my ($message) = shift;
    my ($line_no) = shift || $self->{last_begin};