Ticket #1435: Item.pm

File Item.pm, 952 bytes (added by dod, 3 years ago)

sample test file to reproduce outline issue

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