NAME Data::Object::Data ABSTRACT Podish Parser for Perl 5 SYNOPSIS package main; use Data::Object::Data; my $data = Data::Object::Data->new( file => 't/Data_Object_Data.t' ); DESCRIPTION This package provides methods for parsing and extracting pod-like sections from any file or package. The pod-like syntax allows for using these sections anywhere in the source code and having Perl properly ignoring them. ATTRIBUTES This package has the following attributes: data data(Str) This attribute is read-only, accepts (Str) values, and is optional. file file(Str) This attribute is read-only, accepts (Str) values, and is optional. METHODS This package implements the following methods: content content(Str $name) : ArrayRef[Str] The content method the pod-like section where the name matches the given string. content example #1 # =name # # Example #1 # # =cut # # =name # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/content.pod' ); $data->content('name'); # ['Example #1'] contents contents(Str $list, Str $name) : ArrayRef[ArrayRef] The contents method returns all pod-like sections that start with the given string, e.g. pod matches =pod foo. This method returns an arrayref of data for the matched sections. Optionally, you can filter the results by name by providing an additional argument. contents example #1 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->contents('name'); # [['Example #1'], ['Example #2']] item item(Str $name) : HashRef The item method returns metadata for the pod-like section that matches the given string. item example #1 # =name # # Example #1 # # =cut # # =name # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/content.pod' ); $data->item('name'); # { # index => 1, # data => ['Example #1'], # list => undef, # name => 'name' # } list list(Str $name) : ArrayRef The list method returns metadata for each pod-like section that matches the given string. list example #1 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->list('name'); # [{ # index => 1, # data => ['Example #1'], # list => 'name', # name => 'example-1' # }, # { # index => 2, # data => ['Example #2'], # list => 'name', # name => 'example-2' # }] list_item list_item(Str $list, Str $item) : ArrayRef[HashRef] The list_item method returns metadata for the pod-like sections that matches the given list name and argument. list_item example #1 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->list_item('name', 'example-2'); # [{ # index => 2, # data => ['Example #2'], # list => 'name', # name => 'example-2' # }] parser parser(Str $string) : ArrayRef The parser method extracts pod-like sections from a given string and returns an arrayref of metadata. parser example #1 # given: synopsis $data->parser("=pod\n\nContent\n\n=cut"); # [{ # index => 1, # data => ['Content'], # list => undef, # name => 'pod' # }] pluck pluck(Str $type, Str $item) : ArrayRef[HashRef] The pluck method splices and returns metadata for the pod-like section that matches the given list or item by name. Splicing means that the parsed dataset will be reduced each time this method returns data, making this useful with iterators and reducers. pluck example #1 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->pluck('list', 'name'); # [{ # index => 1, # data => ['Example #1'], # list => 'name', # name => 'example-1' # },{ # index => 2, # data => ['Example #2'], # list => 'name', # name => 'example-2' # }] pluck example #2 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->pluck('item', 'example-1'); # [{ # index => 1, # data => ['Example #1'], # list => 'name', # name => 'example-1' # }] $data->pluck('item', 'example-2'); # [{ # index => 2, # data => ['Example #2'], # list => 'name', # name => 'example-2' # }] pluck example #3 # =name example-1 # # Example #1 # # =cut # # =name example-2 # # Example #2 # # =cut my $data = Data::Object::Data->new( file => 't/examples/contents.pod' ); $data->pluck('list', 'name'); # [{ # index => 1, # data => ['Example #1'], # list => 'name', # name => 'example-1' # },{ # index => 2, # data => ['Example #2'], # list => 'name', # name => 'example-2' # }] $data->pluck('list', 'name'); # [] AUTHOR Al Newkirk, awncorp@cpan.org LICENSE Copyright (C) 2011-2019, Al Newkirk, et al. This is free software; you can redistribute it and/or modify it under the terms of the The Apache License, Version 2.0, as elucidated in the "license file" . PROJECT Wiki Project Initiatives Milestones Contributing Issues