← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to share/templates/template.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/templates/template.pm
1
 
package [% util.new_modulename %];
2
 
 
3
 
=pod
4
 
 
5
 
=head1 NAME
6
 
 
7
 
[% util.new_modulename %] - My author was too lazy to write an abstract
8
 
 
9
 
=head1 SYNOPSIS
10
 
 
11
 
  my $object = [% util.new_modulename %]->new(
12
 
      foo  => 'bar',
13
 
      flag => 1,
14
 
  );
15
 
  
16
 
  $object->dummy;
17
 
 
18
 
=head1 DESCRIPTION
19
 
 
20
 
The author was too lazy to write a description.
21
 
 
22
 
=head1 METHODS
23
 
 
24
 
=cut
25
 
 
26
 
use 5.010;
27
 
use strict;
28
 
use warnings;
29
 
 
30
 
our $VERSION = '0.01';
31
 
 
32
 
=pod
33
 
 
34
 
=head2 new
35
 
 
36
 
  my $object = [% util.new_modulename %]->new(
37
 
      foo => 'bar',
38
 
  );
39
 
 
40
 
The C<new> constructor lets you create a new B<[% util.new_modulename %]> object.
41
 
 
42
 
So no big surprises there...
43
 
 
44
 
Returns a new B<[% util.new_modulename %]> or dies on error.
45
 
 
46
 
=cut
47
 
 
48
 
sub new {
49
 
        my $class = shift;
50
 
        my $self  = bless { @_ }, $class;
51
 
        return $self;
52
 
}
53
 
 
54
 
=pod
55
 
 
56
 
=head2 dummy
57
 
 
58
 
This method does something... apparently.
59
 
 
60
 
=cut
61
 
 
62
 
sub dummy {
63
 
        my $self = shift;
64
 
 
65
 
        # Do something here
66
 
 
67
 
        return 1;
68
 
}
69
 
 
70
 
1;
71
 
 
72
 
=pod
73
 
 
74
 
=head1 SUPPORT
75
 
 
76
 
No support is available
77
 
 
78
 
=head1 AUTHOR
79
 
 
80
 
Copyright 2011
81
 
[%- IF config.identity_name -%]
82
 
 [% config.identity_name %]
83
 
[%- ELSE -%]
84
 
 Anonymous
85
 
[%- END %].
86
 
 
87
 
=cut