#!/usr/bin/perl

use strict;
use warnings;
use CSS;

use Data::Dumper;
$Data::Dumper::Indent = 1;

my $css_data = do{$/ = undef; <DATA>};
#print qq{$css_data\n};

my $css = CSS->new();

$css->read_string($css_data);
#print Dumper $css; 

# fails
#my $style = $css->get_style_by_selector('selector_name') 
#	or die qq{could't get style\n};

#my @styles = $css->styles;
#my $selectors = $css->selectors;


# works
print $css->output();


# [id://208695|Simplifying CSS]

__DATA__

.selector_name {
	margin-left: 1em;
}