view release on metacpan or  search on metacpan

bin/pinpp  view on Meta::CPAN

    @include <autonomous-vehicles.pin>

One of the main uses for C<pinpp> is to allow various topic arcs to be included in a larger
one. By default, the C<topics/> directory will be searched for these files, but this can be
modified by passing an argument to the C<-I> switch.

=head3 code blocks

Any slide for which all lines are indented (or blank) and which does not have any existing styles
applied to it will be formatted as a code block, forcing the text to be left-aligned and the
font to be monospaced.

=head2 EXAMPLES

https://github.com/pjf/future-is-awesome is an example talk using pinpoint and pinpp.

=head1 AUTHOR

Paul Fenwick <pjf@cpan.org>

=head1 COPYRIGHT AND LICENSE

lib/App/Pinpp.pm  view on Meta::CPAN

        }
    }

    # String of actual leading spaces.
    my $space_leader = ' ' x $min_spaces;

    # Trim off leading spaces.
    $slide =~ s{^$space_leader}{}smg;

    # Return our slide.
    return "-- [font=monospace 50px][text-align=left]\n$slide";
}

# Returns number of leading spaces on a line.
# TODO: Handle tabs
sub _count_leading_spaces {
    my ($line) = @_;

    $line =~ m{^(?<spaces>[ ]*)};

    return length($+{spaces});