view release on metacpan or  search on metacpan

examples/reveal-default.mkd  view on Meta::CPAN

<section>
    <h2>Intergalactic Interconnections</h2>
    <p>
        You can link between slides internally,
        <a href="#/2/3">like this</a>.
    </p>
</section>

<section>
    <section id="fragments">
        <h2>Fragmented Views</h2>
        <p>Hit the next arrow...</p>
        <p class="fragment">... to step through ...</p>
        <ol>
            <li class="fragment"><code>any type</code></li>
            <li class="fragment"><em>of view</em></li>
            <li class="fragment"><strong>fragments</strong></li>
        </ol>

        <aside class="notes">
            This slide has fragments which are also stepped through in the notes window.
        </aside>
    </section>
    <section>
        <h2>Fragment Styles</h2>
        <p>There's a few styles of fragments, like:</p>
        <p class="fragment grow">grow</p>
        <p class="fragment shrink">shrink</p>
        <p class="fragment roll-in">roll-in</p>
        <p class="fragment fade-out">fade-out</p>
        <p class="fragment highlight-red">highlight-red</p>
        <p class="fragment highlight-green">highlight-green</p>
        <p class="fragment highlight-blue">highlight-blue</p>
        <p class="fragment current-visible">current-visible</p>
        <p class="fragment highlight-current-blue">highlight-current-blue</p>
    </section>
</section>

<section>
    <h2>Spectacular image!</h2>
    <a class="image" href="http://lab.hakim.se/meny/" target="_blank">
        <img width="320" height="299" src="http://s3.amazonaws.com/hakim-static/portfolio/images/meny.png" alt="Meny">
    </a>
</section>

lib/App/Chorus/Slidedeck.pm  view on Meta::CPAN

    });

    $qs->find('p')->each(sub{
            my(undef,$elem)=@_;

            if ( $elem->text =~ /^\s*\.{3}/ ) {
                (my $text = $elem->text ) =~ s/^\s*\.{3}//;
                $elem->text($text);
                if ( $elem->parent->get(0)->tag eq 'li' ) {
                    $elem->parent->add_class('fragment');
                }
                else {
                    $elem->add_class('fragment');
                }
            }

    });

    my $last_aside;
    $qs->find('aside')->each(sub{
        my $elem = $_;
        
        if ( $last_aside and $last_aside->parent->html eq $elem->parent->html ) {