File Coverage

blib/lib/WML/Card/UP.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	2	2	100.0
total	14	28	50.0

package WML::Card::UP;

use strict;
use HTML::Entities;
use vars qw($VERSION @ISA);

@ISA = qw(WML::Card);

$VERSION = '0.01';

sub _format_text {
	my $self = shift;
	my $str = shift;
	$str =~ tr|ÁÂÀÅÃÄÇÉÊÈËÍÎÌÏÑÓÔÒØÕÖÚÛÙÜÝáâàåãäçéêèëíîìïñóôòøõöúûùüýÿ|AAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuyy|;
	$str=$self->SUPER::_format_text($str);
	$str;
}

sub print{
	my  $self = shift;
	$self->{'_id'} =~s/\s/_/gs;
        $self->{'_title'} = $self->_format_text($self->{'_title'});
        print << "EOF";

$self->{'_do'}
$self->{'_title'}
$self->{'_body'}

EOF
}

sub img{
        my  $self = shift;
	return;
}


1;