ranguard

// Not correct (last label in bad location) - but useful for reference


    var prices = [
        '175',
        '250',
        '350',
        '500',
        '700',
        '1000', 

ranguard

// factory and fu are helper classes 

    show_list({
        title: 'Max price',
        key: 'price_to',
        view: view_price_options,
        list: list,
        is_price : true,
        left: factory.total_width() - 130
    });

ranguard

var win1 = Titanium.UI.createWindow({  
    title:'Tab 1',
    backgroundColor:'#fff'
});
var tab1 = Titanium.UI.createTab({  
    icon:'KS_nav_views.png',
    title:'Tab 1',
    window:win1
});

ranguard

var win1 = Titanium.UI.createWindow({  
    title:'Tab 1',
    backgroundColor:'#fff'
});
var tab1 = Titanium.UI.createTab({  
    icon:'KS_nav_views.png',
    title:'Tab 1',
    window:win1
});

ranguard

#!/usr/bin/env perl

use strict;
use warnings;
use lib qw(lib);
use Plack::App::Cascade;
use Plack::Builder;
use Plack::Middleware::Static;
use Plack::Middleware::ErrorDocument;
use Plack::App::TemplateToolkit;

ranguard

#!/usr/bin/env perl

use strict;
use warnings;
use lib qw(lib);
use Plack::App::Cascade;
use Plack::Builder;
use Plack::Middleware::Static;
use Plack::Middleware::ErrorDocument;
use Plack::App::TemplateToolkit;

ranguard

sudo easy_install dotcloud
dotcloud create leotest
dotcloud deploy --type perl leotest.www
git://github.com/ranguard/plack-example.git
cd plack-example/multiple_roots/
dotcloud push leotest.www ./
open http://www.leotest.dotcloud.com/

ranguard

#!/usr/bin/env perl

use strict;

BEGIN {
    # directory containing clones
    $ENV{GITALIST_REPO_DIR} = "./";
}

use Gitalist;

ranguard

#!/usr/bin/perl
package mytest;

our $global_var = "hello \n";

sub print_global_var {
    print $global_var ."\n";
}

package main;

ranguard

    # Send an email
    use Email::Sender::Simple qw(sendmail);
    use Email::Simple;
    use Email::Simple::Creator;

    my $email = Email::Simple->create(
      header => [
        To      => '"Xavier Q. Ample" <x.ample@example.com>',
        From    => '"Bob Fishman" <orz@example.mil>',
        Subject => "don't forget to *enjoy the sauce*",