package
Weed::Parse::String;
use
Weed::Perl;
our
$VERSION
=
'0.009'
;
our
@EXPORT_OK
=
qw.parseString string.
;
sub
parseString {
&string
(
$_
[0] ) }
sub
string {
return
$1
if
${
$_
[0]} =~ m.
$_string
.gc;
return
;
}
1;
__END__
package
Weed::Parse::String;
use
Weed::Perl;
our
$VERSION
=
'0.009'
;
our
@EXPORT_OK
=
qw.parseString string.
;
sub
parseString {
&string
(
$_
[0] ) }
sub
string {
return
$1
if
${
$_
[0]} =~ m.
$_string
.gc;
return
;
}
1;
__END__