1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
package HTML::FormFu::Deflator::PathClassFile;
use Moose;
use MooseX::Attribute::Chained;
extends 'HTML::FormFu::Deflator';
has relative => ( is => 'rw', traits => ['Chained'] );
has absolute => ( is => 'rw', traits => ['Chained'] );
has basename => ( is => 'rw', traits => ['Chained'] );
sub deflator {
my ( $self, $value ) = @_;
return $value unless ( ref $value );
# we default to relative(1)
$self->relative(1)
unless ( $self->absolute || $self->basename || $self->relative );
if ( $self->relative ) {
return $value->relative(
$self->relative eq "1" ? undef : $self->relative )->stringify;
}
elsif ( $self->absolute ) {
return $value->absolute(
$self->absolute eq "1" ? undef : $self->absolute )->stringify;
}
elsif ( $self->basename ) {
return $value->basename;
}
# fallback, should never happen
return $value->stringify;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
HTML::FormFu::Deflator::PathClassFile - Deflator for Path::Class::File objects
=head1 SYNOPSIS
$form->deflator( PathClassFile => 'file' )
->relative( 'root' );
---
elements:
- type: Text
deflator:
- type: PathClassFile
relative: root
=head1 DESCRIPTION
Deflator for Path::Class::File objects.
There are three types of deflation:
=over
=item relative
Set this to 1 to deflate to a relative path. Anything else than 1 specifies the
directory to use as the base of relativity - otherwise the current working
directory will be used.
=item absolute
Set this to 1 to deflate to an absolute path. Anything else than 1 specifies the
directory to use as the base of relativity - otherwise the current working
directory will be used.
=item basename
Set this to 1 to get the name of the file without the directory portion.
=back
As you cannot set values for a File element, this deflator will only work
on regular form elements.
=head1 AUTHOR
Moritz Onken, C<onken@houseofdesign.de>
=head1 LICENSE
This library is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|
