Kent Fredric

NAME

String::Sections::Result - Glorified wrapper around a hash representing a parsed String::Sections result

VERSION

version 0.3.2

METHODS

sections

    my $sections = $result->sections;
    for my $key( keys %{$sections}) {
        ...
    }

set_current

    $result->set_current('foo');

has_current

    if ( $result->has_current ){
    }

section

    my $ref = $result->section( $name );
    print ${$ref};

section_names

This contains the names of the sections in the order they were found/inserted.

    my @names = $result->section_names;

section_names_sorted

has_section

    if ( $result->has_section($name) ) {
        ...
    }

set_section

    $result->set_section($name, \$data);

append_data_to_current_section

    # Unitialise slot
    $result->append_data_to_current_section();
    # Unitialise and/or extend slot
    $result->append_data_to_current_section('somedata');

append_data_to_section

    # Unitialise slot
    $result->append_data_to_current_section( $name );
    # Unitialise and/or extend slot
    $result->append_data_to_current_section( $name, 'somedata');

shallow_clone

    my $clone = $result->shallow_clone;

    if ( refaddr $clone->section('foo') == refaddr $result->section('foo') ) {
        print "clone success!"
    }

shallow_merge

    my $merged = $result->shallow_merge( $other );

    if ( refaddr $merged->section('foo') == refaddr $result->section('foo') ) {
        print "foo copied from orig successfully!"
    }
    if ( refaddr $merged->section('bar') == refaddr $other->section('bar') ) {
        print "bar copied from other successfully!"
    }

to_s

    my $str = $result->to_s

ATTRIBUTES

sections

PRIVATE ATTRIBUTES

_current

_section_names

PRIVATE METHODS

_current

    my $current = $result->_current;

<_section_names>

_compose_section

    my $str = $result->_compose_section('bar');

AUTHOR

Kent Fredric <kentnl@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Kent Fredric <kentnl@cpan.org>.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.




Hosting generously
sponsored by Bytemark