NAME

Term::ReadLine - Perl interface to various readline packages. If no real package is found, substitutes stubs instead of basic functions.

SYNOPSIS

NAME

Search::Dict, look - search for key in dictionary file

SYNOPSIS EOP

is abstract_from_string($pod), 'search for key in dictionary file';
}

{ my $pod = <<'EOP'; # ABSTRACT: Do stuff

NAME

Search::Dict - decoy

SYNOPSIS EOP

is abstract_from_string($pod), 'Do stuff';
}

{ my $pod = <<'EOP'; =head1 NAME

retropan - Makes a historic minicpan ⏳ E<#9203> ÿ > < | /

SYNOPSIS EOP

is abstract_from_string($pod), "Makes a historic minicpan \x{23f3} E<#9203> \x{ff} > < | /";
}

{ my $pod = qq{ =head1 NAME

pound - latin1 \xa3

SYNOPSIS };

is abstract_from_string($pod), "latin1 \xa3";
}

{ my $pod = qq{ =encoding utf8

NAME

pound - utf8 \xc2\xa3

SYNOPSIS };

is abstract_from_string($pod), "utf8 \xa3";
}

done_testing;