view release on metacpan or  search on metacpan

lib/Acme/Monta.pm  view on Meta::CPAN

use strict;

our $VERSION = '0.01';


sub new {
    my $class = shift;
    my %args  = @_;

    my $self = bless {
	_start => $args{start} ? $args{start} : '<monta>',
	_end => $args{end} ? $args{end} : '</monta>',

	_open_font   => $args{open_font} ? $args{open_font} : '#000',
	_open_back   => $args{open_back} ? $args{open_back} : '#fff',
	_close_font  => $args{close_font} ? $args{close_font} : '#000',
	_close_back  => $args{close_back} ? $args{close_back} : '#000',
	_close_img   => $args{close_img} ? 'url(' . $args{close_img} . ')' : '',

	_replace_tag => $args{replace_tag} ? $args{replace_tag} : 'span',