NAME
    PYX::Stack - Processing PYX data or file and process element stack.

SYNOPSIS
     use PYX::Stack;

     my $obj = PYX::Stack->new(%parameters);
     $obj->parse($pyx, $out);
     $obj->parse_file($input_file, $out);
     $obj->parse_handler($input_file_handler, $out);

METHODS
  "new"
     my $obj = PYX::Stack->new(%parameters);

    Constructor.

    *       "bad_end"

            Check bad end of element. If set, print error on unopened end of
            element.

            Default value is 0.

    *       "output_handler"

            Output handler.

            Default value is \*STDOUT.

    *       "verbose"

            Verbose flag. If set, each start element prints information to
            'output_handler'.

            Default value is 0.

    Returns instance of object.

  "parse"
     $obj->parse($pyx, $out);

    Parse PYX text or array of PYX text. If $out not present, use
    'output_handler'.

    Returns undef.

  "parse_file"
     $obj->parse_file($input_file, $out);

    Parse file with PYX data. If $out not present, use 'output_handler'.

    Returns undef.

  "parse_handler"
     $obj->parse_handler($input_file_handler, $out);

    Parse PYX defined by handler. If $out not present, use 'output_handler'.

    Returns undef.

ERRORS
     new():
             From Class::Utils::set_params():
                     Unknown parameter '%s'.

     parse():
             Bad end of element.
                     Element: %s
             Stack has some elements.

     parse_file():
             Bad end of element.
                     Element: %s
             Stack has some elements.

     parse_handler():
             Bad end of element.
                     Element: %s
             Stack has some elements.

EXAMPLE1
     use strict;
     use warnings;

     use PYX::Stack;

     # Example data.
     my $pyx = <<'END';
     (begin
     (middle
     (end
     -data
     )end
     )middle
     )begin
     END

     # PYX::Stack object.
     my $obj = PYX::Stack->new(
             'verbose' => 1,
     );

     # Parse.
     $obj->parse($pyx);

     # Output:
     # begin
     # begin/middle
     # begin/middle/end
     # begin/middle
     # begin

EXAMPLE2
     use strict;
     use warnings;

     use Error::Pure;
     use PYX::Stack;

     # Error output.
     $Error::Pure::TYPE = 'PrintVar';

     # Example data.
     my $pyx = <<'END';
     (begin
     (middle
     (end
     -data
     )middle
     )begin
     END

     # PYX::Stack object.
     my $obj = PYX::Stack->new;

     # Parse.
     $obj->parse($pyx);

     # Output:
     # PYX::Stack: Stack has some elements.

EXAMPLE3
     use strict;
     use warnings;

     use Error::Pure;
     use PYX::Stack;

     # Error output.
     $Error::Pure::TYPE = 'PrintVar';

     # Example data.
     my $pyx = <<'END';
     (begin
     (middle
     -data
     )end
     )middle
     )begin
     END

     # PYX::Stack object.
     my $obj = PYX::Stack->new(
             'bad_end' => 1,
     );

     # Parse.
     $obj->parse($pyx);

     # Output:
     # PYX::Stack: Bad end of element.
     # Element: end

DEPENDENCIES
    Class::Utils, Error::Pure, PYX::Parser.

SEE ALSO
    Task::PYX
        Install the PYX modules.

REPOSITORY
    <https://github.com/michal-josef-spacek/PYX-Stack>

AUTHOR
    Michal Josef Špaček <mailto:skim@cpan.org>

    <http://skim.cz>

LICENSE AND COPYRIGHT
    © 2011-2023 Michal Josef Špaček

    BSD 2-Clause License

VERSION
    0.06