← Back to branch summary

~ubuntu-branches/ubuntu/saucy/padre/saucy-proposed

« back to all changes in this revision

Viewing changes to eg/theme/style_perl5.pl

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont, gregor herrmann, Dominique Dumont
  • Date: 2012-01-04 12:04:20 UTC
  • mfrom: (1.3.3)
  • Revision ID: package-import@ubuntu.com-20120104120420-i5oybqwf91m1d3il
Tags: 0.92.ds1-1
[ gregor herrmann ]
* Remove debian/source/local-options; abort-on-upstream-changes
  and unapply-patches are default in dpkg-source since 1.16.1.
* Swap order of alternative (build) dependencies after the perl
  5.14 transition.

[ Dominique Dumont ]
* Imported Upstream version 0.92.ds1
* removed fix-spelling patch (applied upstream)
* lintian-override: use wildcard to avoid listing a gazillion files
* updated size of some 'not-real-man-page' entries
* rules: remove dekstop cruft (replaced by a file provided in debian
  directory)
* control: removed Breaks statement. Add /me to uploaders. Updated
  dependencies
* rules: make sure that non-DFSG file (i.e. the cute butterfly, sigh)
  is not distributed

Show diffs side-by-side

added added

removed removed

Lines of Context:
eg/theme/style_perl5.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
use 5.014;
 
4
use strict;
 
5
use warnings;
 
6
 
 
7
# Turn on $OUTPUT_AUTOFLUSH
 
8
$| = 1;
 
9
use diagnostics;
 
10
use Data::Printer { caller_info => 1, colored => 1, };
 
11
 
 
12
my $STYLE_DEFAULT = text;
 
13
my $STYLE_BRACELIGHT;
 
14
my $STYLE_BRACEBAD;
 
15
 
 
16
my $PL_COMMENTLINE; #comment
 
17
my $PL_POD;
 
18
=pod
 
19
 
 
20
=head1 heading-1
 
21
 
 
22
=cut
 
23
 
 
24
my $PL_POD_VERB;
 
25
=pod
 
26
 
 
27
=over
 
28
 
 
29
=item * This is a bulleted list.
 
30
 
 
31
        #code is a pod verb
 
32
        my $PL_POD_VERB;
 
33
 
 
34
=back
 
35
 
 
36
=cut
 
37
 
 
38
my $PL_NUMBER = 1;
 
39
 
 
40
my $PL_WORD;
 
41
# use my sub for while else print return if chomp shift
 
42
say 'sample text';
 
43
print "sample text\n";
 
44
sub function {
 
45
        return;
 
46
}
 
47
 
 
48
my $PL_STRING = "string";
 
49
my $PL_CHARACTER = 'c';
 
50
 
 
51
my $PL_PUNCTUATION; # () [] {} 
 
52
my $PL_PREPROCESSOR; # not emitted by LexPerl, can we recycle it?
 
53
my $PL_OPERATOR; # + - * % ** . =~ x , ++ -- ||= != <=
 
54
my $PL_IDENTIFIER; #struct $variable @array %hash 
 
55
 
 
56
my $PL_SCALAR;
 
57
my @PL_ARRAY;
 
58
$PL_ARRAY[100]; # indexed
 
59
my %PL_HASH;
 
60
$PL_HASH{keyname};
 
61
 
 
62
 
 
63
my $PL_SYMBOLTABLE;
 
64
*Package::Foo::variable = 'blah';
 
65
 
 
66
my $PL_XLAT = tr/abc/xyz/;
 
67
 
 
68
my $PL_REGEX =~ m/ <:name>(pattern) /p;
 
69
my $PL_REGSUBST = s/^\s{1}//a;
 
70
 
 
71
my $PL_LONGQUOTE; # what?
 
72
my $PL_BACKTICKS = `back ticks`;
 
73
 
 
74
my $PL_DATASECTION; # see below
 
75
 
 
76
my $PL_HERE_DELIM = <<FOO;
 
77
sample text
 
78
FOO
 
79
my $PL_HERE_Q = <<'FOO';
 
80
sample text
 
81
FOO
 
82
my $PL_HERE_QQ = <<"FOO";
 
83
sample text
 
84
FOO
 
85
my $PL_HERE_QX = <<`FOO`;
 
86
sample text
 
87
FOO
 
88
 
 
89
my $PL_STRING_Q  = q( single quoted string literal );
 
90
my $PL_STRING_QQ = qq( double quoted string literal );
 
91
my $PL_STRING_QX = qx{ command };
 
92
my $PL_STRING_QR = qr/ sample text /;
 
93
my @PL_STRING_QW = qw( word list );
 
94
 
 
95
my $escaped = "Hello World\n";
 
96
 
 
97
sub function_prototyped($$&) {
 
98
        
 
99
}
 
100
 
 
101
sub function_attrib : SomeAttributes(etc) {
 
102
        
 
103
}
 
104
 
 
105
# what PL is lexing STDOUT?
 
106
format STDOUT =
 
107
@###   @.###   @##.###  @###   @###   ^####
 
108
42,   3.1415,  undef,    0, 10000,   undef
 
109
.
 
110
 
 
111
open( FILEHANDLE, '<' , 'data.txt' );
 
112
print FILEHANDLE "\r\n";
 
113
 
 
114
 
 
115
1;
 
116
 
 
117
__DATA__
 
118
sub foo::bar {23}
 
119
package baz;
 
120
sub dob {32}
 
121
 
 
122
__END__
 
123
 
 
124
=head1 LICENSE AND COPYRIGHT
 
125
 
 
126
Copyright 2008-2011 The Padre development team as listed in Padre.pm.
 
127
 
 
128
This program is free software; you can redistribute
 
129
it and/or modify it under the same terms as Perl 5 itself.
 
130
 
 
131
The full text of the license can be found in the
 
132
LICENSE file included with this module.
 
 
b'\\ No newline at end of file'