package Tribunais::TRTES;
use strict;
use warnings 'all';
use JSON;
use WWW::Mechanize;
use HTML::TreeBuilder::XPath;
use utf8;
sub new
{
my $class = shift;
my $self = {
_tiponumer
my $json = { fases => \@items }; # cria hash com nome de $json, insere no hash uma key com nome de andamentos tendo o array @registros no value dessa key
my $string_json = to_json($json); #
encoda o hash com nome de $json em uma string no formato JSON, e atribui à var $string_json
return $string_json;
}
1;
__END__
=encoding utf8
=head1 NAME
Tribunais::TRTES - Interface de