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	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;