view release on metacpan or  search on metacpan

lib/CSS/Object.pm  view on Meta::CPAN

CSS::Object - CSS Object Oriented

=head1 SYNOPSIS

    use CSS::Object;
    use LWP::UserAgent;
    my $ua = LWP::UserAgent->new;
    my $resp = $ua->get( $style_uri );
    die( $resp->message ) if( $resp->is_error );
    my $style = $resp->decoded_content;
    my $css = CSS::Object->new;
    $css->read_string( $style );
    $css->rules->foreach(sub
    {
        my $rule = shift( @_ );
        # more processing
    });

or, parsing inline stylesheets from a remote document:

    use HTML::Object;
    use HTML::Object::XQuery;
    use LWP::UserAgent;
    my $ua = LWP::UserAgent->new;
    my $resp = $ua->get( $document_uri );
    die( $resp->message ) if( $resp->is_error );
    my $html = $resp->decoded_content;
    my $parser = HTML::Object->new;
    my $doc = $parser->parse( $html ) || die( $parser->error );
    my $styles = $doc->find( 'style' ) || die( $doc->error );
    say "Nothing found", exit(0) unless( $styles->length > 0 );
    my $data = $styles->children->first->text();
    my $css = CSS::Object->new;
    $css->read_string( $data );
    $css->rules->foreach(sub
    {
        my $rule = shift( @_ );