Form/Field/Upload.pm

package Arh::Web::Form::Field::Upload;

use strict;
use warnings;

use base 'Jifty::Web::Form::Field::Upload';

use Data::Dump qw/dump/;

=head1 NAME Arh::Web::Form::Field::Upload

Upload widget which shows thumbnail of image

=head2 render_value

=cut

sub render_value {
        my $self = shift;

        Jifty->web->out( '[' . length( $self->current_value ) . ' bytes]' );
        return '';
}

1;
1	dpavlin	53	package Arh::Web::Form::Field::Upload;
2
3			use strict;
4			use warnings;
5
6			use base 'Jifty::Web::Form::Field::Upload';
7
8			use Data::Dump qw/dump/;
9
10			=head1 NAME Arh::Web::Form::Field::Upload
11
12			Upload widget which shows thumbnail of image
13
14			=head2 render_value
15
16			=cut
17
18			sub render_value {
19			my $self = shift;
20
21			Jifty->web->out( '[' . length( $self->current_value ) . ' bytes]' );
22			return '';
23			}
24
25			1;