~ubuntu-branches/debian/sid/kdevelop/sid

« back to all changes in this revision

Viewing changes to languages/perl/app_templates/perlhello/app.pl

  • Committer: Bazaar Package Importer
  • Author(s): Jeremy Lainé
  • Date: 2010-05-05 07:21:55 UTC
  • mfrom: (1.2.3 upstream) (5.1.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100505072155-h78lx19pu04sbhtn
Tags: 4:4.0.0-2
* Upload to unstable (Closes: #579947, #481832).
* Acknowledge obsolete NMU fixes (Closes: #562410, #546961).

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
#!/usr/bin/perl -w
2
 
#
3
 
use strict;
4
 
use warnings;
5
 
 
6
 
 
7
 
#program version
8
 
my $VERSION="%{VERSION}";
9
 
 
10
 
#For CVS , use following line
11
 
#my $VERSION=sprintf("%d.%02d", q$Revision: 370592 $ =~ /(\d+)\.(\d+)/);
12
 
 
13
 
sub do_something {
14
 
  my $text=shift;
15
 
  print "$text\n";
16
 
}
17
 
 
18
 
&do_something("Hello World");
19
 
print "That's all folks for version $VERSION \n";
20
 
 
21
 
__END__
22
 
 
23
 
=head1 NAME
24
 
 
25
 
%{APPNAME} - short description of your program
26
 
 
27
 
=head1 SYNOPSIS
28
 
 
29
 
 how to use your program
30
 
 
31
 
=head1 DESCRIPTION
32
 
 
33
 
 long description of your program
34
 
 
35
 
=head1 SEE ALSO
36
 
 
37
 
 need to know things before somebody uses your program
38
 
 
39
 
=head1 AUTHOR
40
 
 
41
 
 %{AUTHOR}
42
 
 
43
 
=cut