File: Inline.pm

package info (click to toggle)
libtest-inline-perl 2.212-1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 376 kB
  • sloc: perl: 3,246; makefile: 43
file content (36 lines) | stat: -rw-r--r-- 441 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
package My::Pirate;

# The various tutorial examples

=pod

=item B<is_pirate>

    @pirates = is_pirate(@arrrgs);

Go through @arrrgs and return a list of pirates.

=begin testing

my @p = is_pirate('Blargbeard', 'Alfonse', 'Capt. Hampton', 'Wesley');
is(@p,  2,   "Found two pirates.  ARRR!");

=end testing

=cut

sub is_pirate {
	1;
}

=pod

=for example begin

use LWP::Simple;
getprint "http://www.goats.com";

=for example end

=cut