PageRenderTime 25ms CodeModel.GetById 18ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 1ms

/lib/SDL/Tutorial.pm

http://github.com/PerlGameDev/SDL
Perl | 56 lines | 16 code | 9 blank | 31 comment | 0 complexity | 4569ba27762a3b879c9ceeb9fe5446a2 MD5 | raw file
 1#!/usr/bin/env perl
 2#
 3# Tutorial.pm
 4#
 5# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
 6#
 7# ------------------------------------------------------------------------------
 8#
 9# This library is free software; you can redistribute it and/or
10# modify it under the terms of the GNU Lesser General Public
11# License as published by the Free Software Foundation; either
12# version 2.1 of the License, or (at your option) any later version.
13#
14# This library is distributed in the hope that it will be useful,
15# but WITHOUT ANY WARRANTY; without even the implied warranty of
16# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17# Lesser General Public License for more details.
18#
19# You should have received a copy of the GNU Lesser General Public
20# License along with this library; if not, write to the Free Software
21# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
22#
23# ------------------------------------------------------------------------------
24#
25# Please feel free to send questions, suggestions or improvements to:
26#
27#	David J. Goehrig
28#	dgoehrig@cpan.org
29#
30
31package SDL::Tutorial;
32
33use strict;
34use warnings;
35
36use SDL;
37use SDLx::App;
38
39our $VERSION = 2.548;
40
41# change these values as necessary
42my $title = 'My SDL App';
43my ( $width, $height, $depth ) = ( 640, 480, 16 );
44
45my $app = SDLx::App->new(
46	width  => $width,
47	height => $height,
48	depth  => $depth,
49	title  => $title,
50);
51
52# your code here; remove the next line
53sleep 2;
54
551;
56