/usr/share/perl5/CSS/Property.pm is in libcss-perl 1.09-1.
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 108 109 110 111 | package CSS::Property;
$VERSION = 1.02;
use strict;
use warnings;
use CSS::Value;
sub new {
my $class = shift;
my $self = bless {}, $class;
$self->{options} = shift;
$self->{property} = '';
$self->{simple_value} = '';
$self->{adaptor} = 'CSS::Adaptor';
$self->{property} = $self->{options}->{property} if defined $self->{options}->{property};
$self->{simple_value} = $self->{options}->{value} if defined $self->{options}->{value};
$self->{adaptor} = $self->{options}->{adaptor} if defined $self->{options}->{adaptor};
$self->{values} = [];
if (defined $self->{simple_value}){
my $value_obj = new CSS::Value({
'value' => $self->{simple_value},
'adaptor' => $self->{adaptor},
});
push @{$self->{values}}, $value_obj;
}
return $self;
}
sub set_adaptor {
my $self = shift;
my $adaptor = shift;
# set adaptor
$self->{adaptor} = $adaptor;
}
sub values {
my $self = shift;
my $adaptor_obj = new $self->{adaptor};
return $adaptor_obj->output_values($self->{values});
}
1;
__END__
=head1 NAME
CSS::Property - A property in a CSS object tree
=head1 SYNOPSIS
use CSS;
=head1 DESCRIPTION
This module represents a property in a CSS object tree.
Read the CSS.pm pod for information about the CSS object tree.
=head1 METHODS
=head2 CONSTRUCTORS
=over 4
=item C<new()> or C<new( { ..options.. } )>
This constructor returns a new C<CSS::Property> object, with
an optional hash of options.
property property name (as string)
value simple value string
adaptor adaptor to use for serialization
If the C<value> option is passed, a C<CSS::Value> object is automatically
created and added to the object's values list.
=back
=head2 ACCESSORS
=over 4
=item C<set_adaptor( 'CSS::Adaptor::Foo' )>
This method sets the current adaptor for the object.
=item C<values()>
This method is used to serialize the property's values, using the current
adaptor. It returns a string which comes from the adaptor's C<output_values()>
method.
=back
=head1 AUTHOR
Copyright (C) 2003-2004, Cal Henderson <cal@iamcal.com>
=head1 SEE ALSO
L<CSS>, http://www.w3.org/TR/REC-CSS1
=cut
|