=head1 NAME
perltugues::real - tipo do pragma pertugues
=cut
package perltugues::real;
use perltugues::tipo;
my $VERSION= 0.1;
use overload
">" => sub{
my $r = shift;
my $o = shift;
if(ref $o =~ /perltugues::\w+/) {
return $r->{valor} > $o->{valor}
}else{
return $r->{valor} > $o
}
},
"<" => sub{
my $r = shift;
my $o = shift;
if(ref $o =~ /perltugues::\w+/) {
return $r->{valor} < $o->{valor}
}else{
return $r->{valor} < $o
}
},
">=" => sub{
my $r = shift;
my $o = shift;
if(ref $o =~ /perltugues::\w+/) {
return $r->{valor} >= $o->{valor}
}else{
return $r->{valor} >= $o
}
},
"<=" => sub{
my $r = shift;
my $o = shift;
if(ref $o =~ /perltugues::\w+/) {
return $r->{valor} <= $o->{valor}
}else{
return $r->{valor} <= $o
}
},
;
@perltugues::real::ISA = qw/perltugues::tipo/;
sub new {
my $class = shift;
my $r = $class->SUPER::new;
$r->{valor} = 0;
$r->{regex} = '^\d+(?:.\d+)?$';
$r->{msg} = 'Não é Real!';
bless $r, $class
}
42;
=over
=item new()
metodo new...
=back
=cut