view release on metacpan or  search on metacpan

t/defer.t  view on Meta::CPAN

        },
        inline_max => 0,
    );

    isa_ok $css, 'HTML::DeferableCSS';

    ok $css->preload_script, 'preload script exists';

    my $link = $css->link_html('test');

    ok my $cdata = $css->preload_script->slurp_raw, 'got script content';


    my $html = $css->deferred_link_html('test');


    is $html, '<link rel="preload" as="style" href="/foo.css" onload="this.onload=null;this.rel=\'stylesheet\'"><noscript>' . $link . '</noscript><script>' . $cdata . '</script>',
        'deferred_link_html';

};

subtest "deferred_link_html with inline disabled, simple mode" => sub {

    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {
            reset => 'reset',

t/inline.t  view on Meta::CPAN

        },
        inline_max => 512, # ensure reset not inlined
    );

    isa_ok $css, 'HTML::DeferableCSS';

    is $css->link_html('test'),
        '<link rel="stylesheet" href="/foo.css">',
        "link_html";

    my $cdata = $css->css_files->{test}->[0]->slurp_raw;
    my $link  = $css->link_html('reset');

    is $css->inline_html('test'), "<style>$cdata</style>", "inline";


    is $css->link_or_inline_html(qw[test reset ignore]),
        $css->inline_html('test') . $link,
        "link_or_inline";

};

subtest "inline (small inline_max)" => sub {

t/inline.t  view on Meta::CPAN

        },
        inline_max => 5,
    );

    isa_ok $css, 'HTML::DeferableCSS';

    is $css->link_html('test'),
        '<link rel="stylesheet" href="/foo.css">',
        "link_html";

    my $cdata = $css->css_files->{test}->[0]->slurp_raw;

    is $css->inline_html('test'), "<style>$cdata</style>", "inline";

    is $css->link_or_inline_html('test'), $css->link_html('test'), "link_or_inline";

};

subtest "inline url" => sub {

    my $css = HTML::DeferableCSS->new(
        css_root => 't/etc/css',
        aliases  => {