view release on metacpan or  search on metacpan

lib/Acme/Glue.pm  view on Meta::CPAN

	my %self = ( 0 );

	# Call the fizz_buzz subroutine with appropriate parameters
	print Dumper( \@result );

=head2 LEEJO (snippet from obs-studio/libobs/obs.c)

	static void stop_audio(void)
	{
		struct obs_core_audio *audio = &obs->audio;

		if (audio->audio) {
			audio_output_close(audio->audio);
			audio->audio = NULL;
		}
	}

=head2 LEEJO (only compiles on a Friday)

    # general idea shamelessly stolen from Randal L. Schwartz:
    # https://www.perlmonks.org/index.pl?node_id=44722

    use Time::Piece;

    BEGIN {
        *f = (localtime->wdayname eq 'Fri')
            ? sub() {}
            : sub {};
    }

    f/1;#/+

=head2 MIKESTOK (soundex "joke")

    sub Soundex
    {
      local ($_, $f) = shift;

      y;a-z;A-Z;;y;A-Z;;cd;$_ ne q???do{($f)=m;^(.);;s;$f+;;;
      y;AEHIOUWYBFPVCGJKQSXZDTLMNR;00000000111122222222334556;;
      y;;;cs;y;0;;d;s;^;$f;;s;$;0000;;m;(^.{4});;$1;}:q;;;
    }

=head2 NERDVANA (delorean_ options.pl)

    GetOptions(
        'help|h|?'       => sub { pod2usage(1) },
        'serial-dev|d=s' => \my $opt_serial_dev= '/dev/delorean',
        'socket|S=s'     => \my $opt_socket= '/run/uctl-daemon.sock',
    ) or pod2usage(2);

=head2 SLU (MAZE.BAS)

    10 PRINT CHR$(205.5+RND(1));:GOTO 10

=head2 SLU (schwartzian_transform.pl)


    #!/usr/bin/env perl
    # https://en.wikipedia.org/wiki/Schwartzian_transform
    # Sort list of words according to word length

    print "$_\n" foreach
      map  { $_->[0] }
      sort { $a->[1] <=> $b->[1] or $a->[0] cmp $b->[0] }
      map  { [$_, length($_)] }
      qw(demo of schwartzian transform);

=head2 LIST OF WORKSHOPS / CONFERENCES

A full list of the workshops and conferences this project was shot at

=over

=item Alpine Perl Workshop (2016)

=item FOSDEM (2024)

=item German Perl Workshop (2019)

=item German Perl and Raku Workshop (2022, 2023, 2024, 2025)

=item Les Journées Perl (2017, 2019)

=item London Perl Workshop (2015, 2016, 2019)

=item PerlCon (2019)

=item Swiss Perl Workshop (2015, 2017, 2018, 2019)

=item The Perl Conference [EU] (2017, 2018)

=item The Perl Conference [NA] (2016, 2017)

=item The Perl Toolchain Summit (2017)

=item The Perl and Raku Conference [NA] (2023, 2024)

=item Yet Another Perl Conference [EU] (2015, 2016)

=back

=head1 THANKS

Thanks to all who contributed a snippet

=head1 SEE ALSO

L<https://www.formulanon.com/glue>

L<https://www.youtube.com/watch?v=OXcHLAL_luU>

L<https://leejo.github.io/acme-glue-talk/presentation.html#1>

=head1 AUTHOR

Lee Johnson - C<leejo@cpan.org>

=head1 LICENCE

This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself. If you would like to contribute documentation,
features, bug fixes, or anything else then please raise an issue / pull request:

    https://github.com/leejo/acme-glue