← Back to branch summary

~kubuntu-members/kdesdk-kioslaves/4.11

« back to all changes in this revision

Viewing changes to perldoc/pod2html.pl

  • Committer: Frederik Schwarzer
  • Date: 2011-06-05 23:12:28 UTC
  • Revision ID: git-v1:e54f94b35f2e79e5301ccaac1ace776b4761844b
Tags: v4.6.90
Use given/when feature from Perl 5.10.

The formerly used version from Switch.pm is deprecated since
Perl 5.12 and dropped in 5.14.

CCMAIL: mpyne@kde.org
REVIEW: 6702

svn path=/trunk/KDE/kdesdk/kioslave/; revision=1235472

Show diffs side-by-side

added added

removed removed

Lines of Context:
perldoc/pod2html.pl
76
76
 
77
77
use Carp;
78
78
use English qw{ -no_match_vars };
79
 
use Switch qw{ Perl6 };
 
79
use feature "switch";
80
80
 
81
81
use strict;
82
82
use warnings;
256
256
 
257
257
    my $html;
258
258
    given ($command) {
259
 
        when q{head1} {
 
259
        when ("head1") {
260
260
            _add_tree_point( $parser, $expansion, 1 );
261
261
            $html = $parser->{POD_HTMLEASY}
262
262
                ->{ON_HEAD1}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
263
263
        }
264
 
        when q{head2} {
 
264
        when ("head2") {
265
265
            _add_tree_point( $parser, $expansion, 2 );
266
266
            $html = $parser->{POD_HTMLEASY}
267
267
                ->{ON_HEAD2}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
268
268
        }
269
 
        when q{head3} {
 
269
        when ("head3") {
270
270
            _add_tree_point( $parser, $expansion, 3 );
271
271
            $html = $parser->{POD_HTMLEASY}
272
272
                ->{ON_HEAD3}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
273
273
        }
274
 
        when q{head4} {
 
274
        when ("head4") {
275
275
            _add_tree_point( $parser, $expansion, 4 );
276
276
            $html = $parser->{POD_HTMLEASY}
277
277
                ->{ON_HEAD4}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
278
278
        }
279
 
        when q{begin} {
 
279
        when ("begin") {
280
280
            _add_tree_point( $parser, $expansion, 4 );
281
281
            $html = $parser->{POD_HTMLEASY}
282
282
                ->{ON_BEGIN}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
283
283
        }
284
 
        when q{end} {
 
284
        when ("end") {
285
285
            $html = $parser->{POD_HTMLEASY}
286
286
                ->{ON_END}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
287
287
        }
288
 
        when q{over} {
 
288
        when ("over") {
289
289
            if ( $parser->{INDEX_ITEM} ) {
290
290
                $parser->{INDEX_ITEM_LEVEL}++;
291
291
            }
292
292
            $html = $parser->{POD_HTMLEASY}
293
293
                ->{ON_OVER}( $parser->{POD_HTMLEASY}, $expansion );
294
294
        }
295
 
        when q{item} {
 
295
        when ("item") {
296
296
            if ( $parser->{INDEX_ITEM} ) {
297
297
                _add_tree_point( $parser, $expansion,
298
298
                    ( 3 + ( $parser->{INDEX_ITEM_LEVEL} || 1 ) ) );
300
300
            $html = $parser->{POD_HTMLEASY}
301
301
                ->{ON_ITEM}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
302
302
        }
303
 
        when q{back} {
 
303
        when ("back") {
304
304
            if ( $parser->{INDEX_ITEM} ) {
305
305
                $parser->{INDEX_ITEM_LEVEL}--;
306
306
            }
307
307
            $html = $parser->{POD_HTMLEASY}
308
308
                ->{ON_BACK}( $parser->{POD_HTMLEASY}, $expansion );
309
309
        }
310
 
        when q{for} {
 
310
        when ("for") {
311
311
            $html = $parser->{POD_HTMLEASY}
312
312
                ->{ON_FOR}( $parser->{POD_HTMLEASY}, $expansion, $a_name );
313
313
        }
314
 
        when q{include} {
 
314
        when ("include") {
315
315
            my $file = $parser->{POD_HTMLEASY}
316
316
                ->{ON_INCLUDE}( $parser->{POD_HTMLEASY}, $expansion );
317
317
            if (   -e $file
435
435
    }
436
436
 
437
437
    given ($seq_command) {
438
 
        when q{B} {
 
438
        when ("B") {
439
439
            $ret = $parser->{POD_HTMLEASY}
440
440
                ->{ON_B}( $parser->{POD_HTMLEASY}, $seq_argument );
441
441
        }
442
 
        when q{C} {
 
442
        when ("C") {
443
443
            $ret = $parser->{POD_HTMLEASY}
444
444
                ->{ON_C}( $parser->{POD_HTMLEASY}, $seq_argument );
445
445
        }
446
 
        when q{E} {
 
446
        when ("E") {
447
447
            $ret = $parser->{POD_HTMLEASY}
448
448
                ->{ON_E}( $parser->{POD_HTMLEASY}, $seq_argument );
449
449
        }
450
 
        when q{F} {
 
450
        when ("F") {
451
451
            $ret = $parser->{POD_HTMLEASY}
452
452
                ->{ON_F}( $parser->{POD_HTMLEASY}, $seq_argument );
453
453
        }
454
 
        when q{I} {
 
454
        when ("I") {
455
455
            $ret = $parser->{POD_HTMLEASY}
456
456
                ->{ON_I}( $parser->{POD_HTMLEASY}, $seq_argument );
457
457
        }
458
 
        when q{L} {
 
458
        when ("L") {
459
459
            my ( $text, $name, $section, $type ) = _parselink($seq_argument);
460
460
 
461
461
            # Held off on escaping these earlier, take care of it now.
468
468
                $seq_argument, $text, $name, $section, $type, $fnPage,
469
469
            );
470
470
        }
471
 
        when q{S} {
 
471
        when ("S") {
472
472
            $ret = $parser->{POD_HTMLEASY}
473
473
                ->{ON_S}( $parser->{POD_HTMLEASY}, $seq_argument );
474
474
        }
475
 
        when q{Z} {
 
475
        when ("Z") {
476
476
            $ret = $parser->{POD_HTMLEASY}
477
477
                ->{ON_Z}( $parser->{POD_HTMLEASY}, $seq_argument );
478
478
        }