comp_unit statementlist statement statement_control statement_control__S_002use usecomp_unit statementlist statement statement_control statement_control__S_002use ws comp_unit statementlist statement statement_control statement_control__S_002use version version__S_040v vcomp_unit statementlist statement statement_control statement_control__S_002use version version__S_040v vnum 6comp_unit statementlist eat_terminator ;comp_unit statementlist ws vws
comp_unit statementlist statement statement_control statement_control__S_002use usecomp_unit statementlist statement statement_control statement_control__S_002use ws comp_unit statementlist statement statement_control statement_control__S_002use module_name module_name__S_039normal longname name identifier ident Testcomp_unit statementlist eat_terminator ;comp_unit statementlist ws vws
comp_unit statementlist statement EXPR termish term term__S_332identifier identifier ident plancomp_unit statementlist statement EXPR termish term term__S_332identifier args ws comp_unit statementlist statement EXPR termish term term__S_332identifier args arglist EXPR termish term term__S_086value value value__S_136number number integer decint 1comp_unit statementlist eat_terminator ;comp_unit statementlist ws vws
comp_unit statementlist ws unv pod_comment comp_unit statementlist ws unv pod_comment identifier ident comp_unit statementlist ws unv pod_comment comp_unit statementlist ws vws
comp_unit statementlist statement statement_control statement_control__S_005unless unlesscomp_unit statementlist statement statement_control statement_control__S_005unless ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis (comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try trycomp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid {comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier identifier ident evalcomp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args (comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST termish term term__S_086value value value__S_135quote quote quote__S_050Double_Double "comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST termish term term__S_086value value value__S_135quote quote quote__S_050Double_Double nibbler 1comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST termish term term__S_086value value value__S_135quote quote quote__S_050Double_Double "comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST infixish infix infix__S_323Comma ,comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST nulltermish termish term term__S_090colonpair colonpair :comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST nulltermish termish term term__S_090colonpair colonpair identifier ident langcomp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST nulltermish termish term term__S_090colonpair colonpair coloncircumfix circumfix circumfix__S_053Lt_Gt <comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST nulltermish termish term term__S_090colonpair colonpair coloncircumfix circumfix circumfix__S_053Lt_Gt nibbler perl5comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args semiarglist arglist EXPR LIST nulltermish termish term term__S_090colonpair colonpair coloncircumfix circumfix circumfix__S_053Lt_Gt >comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR termish term term__S_332identifier args )comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid statementlist statement EXPR ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis semilist statement EXPR termish term term__S_089statement_prefix statement_prefix statement_prefix__S_169try blast block blockoid }comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR termish term term__S_084circumfix circumfix circumfix__S_192Paren_Thesis )comp_unit statementlist statement statement_control statement_control__S_005unless xblock EXPR ws comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid {comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist ws vws
comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist ws unv comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist statement EXPR termish term term__S_332identifier identifier ident skip_restcomp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist eat_terminator ;comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist ws vws
comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist ws unv comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist statement EXPR termish term term__S_332identifier identifier ident exitcomp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist eat_terminator ;comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid statementlist ws vws
comp_unit statementlist statement statement_control statement_control__S_005unless xblock pblock blockoid }comp_unit statementlist statement statement_control statement_control__S_005unless ws vws
comp_unit statementlist statement EXPR LIST termish term term__S_332identifier identifier ident evalcomp_unit statementlist statement EXPR LIST termish term term__S_332identifier args ws comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR termish term term__S_086value value value__S_135quote quote quote__S_144q qcomp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR termish term term__S_086value value value__S_135quote quote quote__S_144q quibble [comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR termish term term__S_086value value value__S_135quote quote quote__S_144q quibble nibbler
use Text::Wrap:from<perl5> 'wrap';
is(wrap('foo', 'bar', 'baz'), 'foobaz', "import p5 module");
comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR termish term term__S_086value value value__S_135quote quote quote__S_144q quibble ]comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR ws comp_unit statementlist statement EXPR LIST infixish infix infix__S_336or ocomp_unit statementlist statement EXPR LIST infixish infix infix__S_336or infixish infix infix__S_336or rcomp_unit statementlist statement EXPR LIST ws comp_unit statementlist statement EXPR LIST termish term term__S_332identifier identifier ident diecomp_unit statementlist statement EXPR LIST termish term term__S_332identifier args ws comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR POSTFIX termish term term__S_077variable variable special_variable special_variable__S_092DollarBang sigil sigil__S_036Dollar sigil sigil__S_036Dollar $comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR POSTFIX termish term term__S_077variable variable special_variable special_variable__S_092DollarBang !comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR POSTFIX termish POST dotty dotty__S_195Dot .comp_unit statementlist statement EXPR LIST termish term term__S_332identifier args arglist EXPR POSTFIX termish POST dotty dotty__S_195Dot dottyop methodop longname name identifier ident perlcomp_unit statementlist eat_terminator ;comp_unit statementlist ws vws
comp_unit statementlist ws unv comment comment__S_058Sharp