run4flat

use strict;
use warnings;

use Prima qw(Application Buttons Label);


my $window = Prima::Window->create();

$window->insert(Label =>
  text => 'test',

run4flat

sub build_state_func {
  my $state_var
  return sub {
    # work with state here
  }
}

...

*globref = build_state_func();

run4flat

#!/usr/bin/env perl
use strict;
use warnings;

#############################
# Getting the Forecast Data #
#############################

use PDL;
use Time::Piece;

run4flat

use PDL::Graphics::Prima::Simple;
line_plot $time, $temp;

run4flat

use PDL::Graphics::Prima::Simple;
my ($window, $plot) = line_plot $time, $temp;
$plot->x->label('Days into the Future');
$plot->y->label('Temperature (Degrees Fahrenheit)');
$plot->title("Forecast for $zip_code");
$window->execute;

run4flat

use PDL::Graphics::Prima::Simple;
plot(
  -data => ds::Pair($time, $temp,
    plotType => ppair::Lines,
  ),
  x => { label => 'Days into the Future' },
  y => { label => 'Temperature (Degrees Fahrenheit)' },
);

run4flat

#!/usr/bin/env perl

##
## Usage:
##    perl matmult_pdl_thr.pl   1024  ## Default size is 512:  $c = $a * $b
##
## by David Mertens
## based on code by Mario Roy

#################

run4flat

#!/usr/bin/perl
use warnings;
use strict;
use POE;
use POE::Component::IRC::State;
use constant CHANNEL => '#pdl';

# Load the current piddlebot functions:
use piddlebot;
my $last_modified = (stat('piddlebot.pm'))[9];

run4flat

/*
 * This file was generated automatically by ExtUtils::ParseXS version 3.18 from the
 * contents of Minimal.xs. Do not edit this file, edit Minimal.xs instead.
 *
 *    ANY CHANGES MADE HERE WILL BE LOST!
 *
 */

#line 1 "lib/CUDA/Minimal.xs"
#include "EXTERN.h"

run4flat

use strict;
use warnings;

############################################################################
                         package PDL::Demos::Prima;
############################################################################

# It's a shame that PDL::Demos::Routines is in a file called
# PDL::Demos::Screen. Oh well.
use PDL::Demos::Screen;