|
sub parse {
my $self = shift ;
my $has_hack = shift ;
my $location = shift ;
my %declaration = @_ ;
my $property = $declaration { 'property' };
my $value = $declaration { 'value' };
my %canonical ;
my @errors ;
if ( $property =~ m{^-} ) {
$canonical { $property } = $value ;
}
return \ %canonical , [];
}
sub output {
my $self = shift ;
my $block = shift ;
my @output ;
foreach my $property ( keys %{ $block } ) {
if ( $property =~ m{^-} ) {
push @output , sprintf $self ->output_format,
"${property}:" , $block ->{ $property };
}
}
return @output ;
}
1;
|