Untitled

package Interface::Form::Mostrar;

use Moose;
use Data::Dumper;

has 'db' => ( is => 'rw', isa => 'Any', required => 1 );

sub show {
    my $self     = shift;
    my $procurar = $self->db->resultset('Procurar');
    while ( my $procura = $procurar->next ) {
        print $procura->busca->id, "\t", $procura->busca->busca, "\t",
          $procura->spider->id, "\t", $procura->spider->nome, "\n";
    }
    return 1;
}

1;