CPAN::Groonga

t to JSON

use Moose;
use Treex::Core::Document;
use Treex::Core::TredView;
use Treex::Core::TredView::Labels;
use Treex::PML::Factory;
use Treex::View::TreeLayout;
use Treex::View::Node;
use JSON;

u

);
    push @bundles, \%bundle;
  }

  my $json = JSON->new->allow_nonref->allow_blessed->convert_blessed;
  $json = $json->pretty if $pretty;

  return $json->encode(\@bundles);
}

__PACKAGE__->meta-

> $treex_root );

=head1 DESCRIPTION

Wrapper around regular L<Treex::Core::Node> to provide L<TO_JSON>
method used for converting Treex structure to simple Perl hashes and
arrays.

=head1 IMPORTED CO

andled data type: $decl";
  }

  return $data;
}

=head2 TO_JSON

Called by L<JSON> package while converting blessed items

=cut

sub TO_JSON {
  my $self = shift;

  my $n    = $self->node;
  my $dat