/usr/share/perl5/Jifty/Param.pm is in libjifty-perl 1.10518+dfsg-3ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 97 98 99 100 101 102 103 104 105 106 107 | use warnings;
use strict;
package Jifty::Param;
=head1 NAME
Jifty::Param - Parameters for Jifty actions
=head1 DESCRIPTION
Describes a parameter to a C<Jifty::Action> object. Do not construct
this by hand -- use L<Jifty::Param::Schema> in the action package to
declare parameters instead.
=head2 accessors
Although this class is not derived from B<Jifty::Web::Form::Field>,
it does share the accessors from it; see L<Jifty::Web::Form::Field>,
for the list of possible keys that each parameter can have.
In addition to the list there, you may use these additional keys:
=over
=item constructor
A boolean which, if set, indicates that the argument B<must> be
present in the C<arguments> passed to create the action, rather than
being expected to be set later.
Defaults to false.
=item valid_values
An array reference. Each element should be either:
=over 4
=item *
A hash reference with a C<display> field for the string to display for the
value, and a C<value> field for the value to actually send to the server.
=item *
A hash reference with a C<collection> field containing a L<Jifty::Collection>,
and C<display_from> and C<value_from> fields containing the names of methods to
call on each record in the collection to get C<display> and C<value>.
=item *
A simple string, which is treated as both C<display> and C<value>.
=back
=item available_values
Just like L<valid_values>, but represents the list of suggested values,
instead of the list of acceptable values.
=item sort_order
An integer of how the parameter sorts relative to other parameters.
This is usually implicitly generated by its declaration order.
=back
=cut
# We share accessors with Jifty::Web::Form::Field, but not its methods,
# so it's not an inheritance relationsip.
use Jifty::Web::Form::Field ();
use base qw/Class::Accessor::Fast/;
use constant ACCESSORS => (
Jifty::Web::Form::Field->accessors,
qw(constructor valid_values available_values sort_order documentation),
);
__PACKAGE__->mk_accessors(ACCESSORS);
sub accessors { ACCESSORS }
=head2 new
Creates a new L<Jifty::Param> object. Note that unlike L<Jifty::Web::Form::Field>,
the object is never magically reblessed into a subclass. Should only be called
implicitly from a L<Jifty::Param::Schema> declaration.
=cut
sub new {
my $class = shift;
$class->Class::Accessor::Fast::new({
type => 'text',
class => '',
input_name => '',
default_value => '',
sticky_value => '',
render_mode => 'update',
@_,
});
}
1;
|