package CSS::Adaptor::XML; $VERSION = 1.00; use CSS::Adaptor; @ISA = ('CSS::Adaptor'); use strict; use warnings; sub output_rule { my ($self, $rule) = @_; #loop on each selector foreach ($rule->selectors(@_)){ #grab the selector name my $selector = $rule->selectors; print "\t\