File Coverage

lib/Jifty/Plugin/Media/Widget.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1 1     1   2388 use strict;
  1         2  
  1         31  
2 1     1   4 use warnings;
  1         2  
  1         30  
3              
4             package Jifty::Plugin::Media::Widget;
5 1     1   4 use base qw/Jifty::Web::Form::Field/;
  1         1  
  1         583  
6              
7             =head1 NAME
8              
9             Jifty::Plugin::Media::Widget - widget for managing files in Jifty
10              
11             =head2 render_widget
12              
13             html widget
14              
15             =cut
16              
17             sub render_widget {
18             my $self = shift;
19             my $field;
20              
21             my $element_id = "@{[ $self->element_id ]}";
22             $element_id=~s/://g;
23              
24             my $current_value = $self->current_value || '';
25              
26             $field .= qq!
!;
27             $field .= qq!
28             $field .= qq! name="@{[ $self->input_name ]}"!;
29             $field .= qq! type="text" value="$current_value" />!;
30             my $folder = 'f'.$element_id;
31             $field .= qq!
!;
32              
33             $field .= <<"EOF";
34            
47             EOF
48              
49             Jifty->web->out($field);
50             '';
51             };
52              
53             =head1 AUTHOR
54              
55             Yves Agostini,
56              
57             =head1 LICENSE
58              
59             Copyright 2010, Yves Agostini.
60              
61             This program is free software and may be modified and distributed under the same terms as Perl itself.
62              
63             =cut
64              
65              
66             1;
67