/usr/share/perl5/CSS/DOM/MediaList.pm is in libcss-dom-perl 0.14-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 | package CSS::DOM::MediaList;
$VERSION = '0.14';
require CSS::DOM::Array;
@ISA = 'CSS::DOM::Array';
use CSS::DOM::Exception 'NOT_FOUND_ERR';
sub mediaText {
my $list = shift;
my $old = join ', ', @$list unless not defined wantarray;
if (@_) {
# This parser is based on the description in the HTML spec.
@$list = map /^\p{IsSpacePerl}*([A-Za-z0-9-]*)/,
split /,/, shift;
}
$old
}
sub deleteMedium {
my ($list, $medium) = @_;
my $length = @$list;
@$list = grep $_ ne $medium, @$list;
@$list == $length and die CSS::DOM::Exception->new(
NOT_FOUND_ERR,
qq'The medium "$medium" cannot be found in the list'
);
return # nothing;
}
sub appendMedium { # ~~~ If someone passes ‘foo>>@#’ as an argument, are we
# supposed to truncate it or throw an exception? The
# DOM Style spec. is vague and refers to the ‘under-
# lying style language’. The HTML spec. has a sec-
# tion on parsing of entire lists. Does that apply
# to this, or do I have to hunt through the CSS
# spec. to find that which I seek?
my ($list ,$medium) = @_;
@$list = (grep($_ ne $medium, @$list), $medium);
return # nothing;
}
!()__END__()!
=head1 NAME
CSS::DOM::MediaList - Medium list class for CSS::DOM
=head1 VERSION
Version 0.14
=head1 SYNOPSIS
use CSS::DOM;
$media_list = new CSS::DOM ->media;
use CSS::DOM::MediaList;
$media_list = new MediaList 'screen', 'papyrus';
@media = @$media_list; # use as array
$media_list->mediaText; # returns a string
$media_list->mediaText('print, screen'); # change it
$media_list->deleteMedium('print');
$media_list->appendMedium('tv');
=head1 DESCRIPTION
This module implements medium lists for L<CSS::DOM>. It implements the
CSSMediaList DOM interface and inherits from L<CSS::DOM::Array>.
=head1 METHODS
=head2 DOM Attributes
=over 4
=item mediaText
A comma-and-space-separated string of the individual media in the list,
e.g., 'screen, print'.
=back
=head2 DOM Methods
=over 4
=item deleteMedium ( $name )
Deletes the named medium from the list, or throws an error if it cannot
be found.
=item appendMedium ( $name )
Adds a medium to the end of the list.
=back
=head1 SEE ALSO
L<CSS::DOM>
L<CSS::DOM::Array>
|