/usr/share/perl5/CSS/Adaptor.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 112 113 114 115 116 117 118 | package CSS::Adaptor;
$VERSION = 1.01;
use strict;
use warnings;
use Carp qw(croak confess);
sub new {
my $class = shift;
my $self = bless {}, $class;
return $self;
}
sub output_rule {
my ($self, $rule) = @_;
return $rule->selectors.' { '.$rule->properties." }\n" ;
}
sub output_selectors {
my ($self, $selectors) = @_;
return join ', ', map {$_->{name}} @{$selectors}
}
sub output_properties {
my ($self, $properties) = @_;
return join '; ', map {$_->{property}.": ".$_->values} @{$properties};
}
sub output_values {
my ($self, $values) = @_;
return join '', map {$_->{value}} @{$values};
}
1;
__END__
=head1 NAME
CSS::Adaptor - Arbitrarily map CSS data for use in another context.
=head1 SYNOPSIS
use CSS;
# create a CSS object with an adaptor
my $css = new CSS({
'adaptor' => 'CSS::Adaptor',
});
# load some CSS data
$css->read_file( "my_file.css" );
# change the adaptor
$css->set_adaptor( "CSS::Adaptor::Pretty" );
# output CSS object using the current adaptor
print $css->output();
=head1 DESCRIPTION
This class is used by CSS to translate a CSS object to a string. This
allows CSS data to be easily mapped into other formats.
This documentation is for people who want to write their own CSS::Adaptor
module. For usage information, see the documentation for CSS.
=head1 METHODS
=head2 CONSTRUCTOR
=over 4
=item C<new()>
Called without options.
=back
=head2 FUNCTIONS
=over 4
=item C<output_rule( $rule )>
returns a string containing a formatted CSS::Style object, passed as an object ref
=item C<output_selectors( $selectors )>
returns a string containing a formatted list of CSS::Selector objects, passed as an array ref
=item C<output_properties( $properties )>
returns a string containing a formatted list of CSS::Property objects, passed as an array ref
=item C<output_values( $values )>
returns a string containing a formatted list of CSS::Value objects, passed as an array ref
=back
=head1 AUTHORS
Copyright (C) 2001-2002, Allen Day <allenday@ucla.edu>
Copyright (C) 2003-2004, Cal Henderson <cal@iamcal.com>
=head1 SEE ALSO
L<CSS>
=cut
|