gistfile1.txt

sub _inlinify_css_rules {
    my $self = shift;
    my $html = shift;

    my $dom = Mojo::DOM->new($html);

    for my $selector ( sort keys %rules ) {
        my $styler = sub {
            my $element = shift;
            my $style = $element->attrs('style') // q{};
            for my $name ( keys %{ $rules{$selector} } ) {
                $style .= "$name:$rules{$selector}{$name};";
            }
            $element->attrs( style => $style );
        };
        $dom->find($selector)->each($styler);
    }

    return "$dom";
}