Revision b66801e2
Von Tamino Steinert vor 11 Monaten hinzugefügt
SL/Presenter/RequirementSpec.pm | ||
---|---|---|
6 | 6 |
use SL::Presenter::Tag qw(link_tag); |
7 | 7 |
|
8 | 8 |
use Exporter qw(import); |
9 |
our @EXPORT_OK = qw(requirement_spec); |
|
9 |
our @EXPORT_OK = qw(show requirement_spec);
|
|
10 | 10 |
|
11 | 11 |
use Carp; |
12 | 12 |
|
13 |
sub show {goto &requirement_spec}; |
|
14 |
|
|
13 | 15 |
sub requirement_spec { |
14 | 16 |
my ($requirement_spec, %params) = @_; |
15 | 17 |
|
... | ... | |
28 | 30 |
} |
29 | 31 |
|
30 | 32 |
1; |
33 |
|
|
34 |
__END__ |
|
35 |
|
|
36 |
=pod |
|
37 |
|
|
38 |
=encoding utf8 |
|
39 |
|
|
40 |
=head1 NAME |
|
41 |
|
|
42 |
SL::Presenter::RequirementSpec - Presenter module for SL::DB::RequirementSpec objects |
|
43 |
|
|
44 |
=head1 SYNOPSIS |
|
45 |
|
|
46 |
my $object = SL::DB::Manager::RequirementSpec->get_first(); |
|
47 |
my $html = SL::Presenter::RequirementSpec::requirement_spec($object); |
|
48 |
# or |
|
49 |
my $html = $object->presenter->show(); |
|
50 |
|
|
51 |
=head1 FUNCTIONS |
|
52 |
|
|
53 |
=over 4 |
|
54 |
|
|
55 |
=item C<show $object> |
|
56 |
|
|
57 |
Alias for C<requirement_spec $object %params>. |
|
58 |
|
|
59 |
=item C<requirement_spec $object %params> |
|
60 |
|
|
61 |
Returns a rendered version (actually an instance of |
|
62 |
L<SL::Presenter::EscapedText>) of the bank transaction object |
|
63 |
C<$object>. C<%params> gets passed to L<SL::Presenter::Tag/link_tag>. |
|
64 |
|
|
65 |
=back |
|
66 |
|
|
67 |
=head1 BUGS |
|
68 |
|
|
69 |
Nothing here yet. |
|
70 |
|
|
71 |
=head1 AUTHOR |
|
72 |
|
|
73 |
Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt> |
|
74 |
|
|
75 |
=cut |
Auch abrufbar als: Unified diff
S:Presenter:Record: Alias Funktion "show" in verwendeten Objekten