FM / Node

/usr/share/perl5/vendor_perl/Pod/POM/Node/

/usr/share/perl5/vendor_perl/Pod/POM/Node

Name	Size	Mode	Actions
Begin.pm	1546	0644	edit dl rm
Code.pm	1573	0644	edit dl rm
Content.pm	1699	0644	edit dl rm
For.pm	1624	0644	edit dl rm
Head1.pm	1758	0644	edit dl rm
Head2.pm	1752	0644	edit dl rm
Head3.pm	1746	0644	edit dl rm
Head4.pm	1740	0644	edit dl rm
Item.pm	1727	0644	edit dl rm
Over.pm	1938	0644	edit dl rm
Pod.pm	1515	0644	edit dl rm
Sequence.pm	2380	0644	edit dl rm
Text.pm	2010	0644	edit dl rm
Verbatim.pm	1627	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Pod/POM/Node/Sequence.pm (2380B)

#============================================================= -*-Perl-*-
#
# Pod::POM::Node::Sequence
#
# DESCRIPTION
#   Module implementing specific nodes in a Pod::POM, subclassed from
#   Pod::POM::Node.
#
# AUTHOR
#   Andy Wardley   <abw@kfs.org>
#   Andrew Ford    <a.ford@ford-mason.co.uk>
#
# COPYRIGHT
#   Copyright (C) 2000, 2001 Andy Wardley.  All Rights Reserved.
#   Copyright (C) 2009 Andrew Ford.  All Rights Reserved.
#
#   This module is free software; you can redistribute it and/or
#   modify it under the same terms as Perl itself.
#
# REVISION
#   $Id: Sequence.pm 89 2013-05-30 07:41:52Z ford $
#
#========================================================================

package Pod::POM::Node::Sequence;
$Pod::POM::Node::Sequence::VERSION = '2.01';
require 5.006;
use strict;
use warnings;

use Pod::POM::Constants qw( :all );
use parent qw( Pod::POM::Node );

our %NAME = (
    C => 'code',
    B => 'bold',
    I => 'italic',
    L => 'link',
    S => 'space',
    F => 'file',
    X => 'index',
    Z => 'zero',
    E => 'entity',
);
    
sub new {
    my ($class, $self) = @_;
    local $" = '] [';
    return bless \$self, $class;
}

sub add {
    return IGNORE;
}

sub present {
    my ($self, $view) = @_;
    my ($cmd, $method, $result);
    $view ||= $Pod::POM::DEFAULT_VIEW;

$self = $$self;
    return $self unless ref $self eq 'ARRAY';

my $text = join('', 
                    map { ref $_ ? $_->present($view) 
                                 : $view->view_seq_text($_) } 
                    @{ $self->[CONTENT] });
    
    if ($cmd = $self->[CMD]) {
        my $method = $NAME{ $cmd } || $cmd;
        $method = "view_seq_$method";
        return $view->$method($text);
    }
    else {
        return $text;
    }
}

=head1 NAME

Pod::POM::Node::Sequence -

=head1 SYNOPSIS

use Pod::POM::Nodes;

=head1 DESCRIPTION

This module implements a specialization of the node class to represent sequence elements.

=head1 AUTHOR

Andrew Ford E<lt>a.ford@ford-mason.co.ukE<gt>

Andy Wardley E<lt>abw@kfs.orgE<gt>

=head1 COPYRIGHT

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 SEE ALSO

Consult L<Pod::POM::Node> for a discussion of nodes.

#============================================================= -*-Perl-*- # # Pod::POM::Node::Sequence # # DESCRIPTION # Module implementing specific nodes in a Pod::POM, subclassed from # Pod::POM::Node. # # AUTHOR # Andy Wardley # Andrew Ford # # COPYRIGHT # Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. # Copyright (C) 2009 Andrew Ford. All Rights Reserved. # # This module is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # # REVISION # $Id: Sequence.pm 89 2013-05-30 07:41:52Z ford $ # #======================================================================== package Pod::POM::Node::Sequence; $Pod::POM::Node::Sequence::VERSION = '2.01'; require 5.006; use strict; use warnings; use Pod::POM::Constants qw( :all ); use parent qw( Pod::POM::Node ); our %NAME = ( C => 'code', B => 'bold', I => 'italic', L => 'link', S => 'space', F => 'file', X => 'index', Z => 'zero', E => 'entity', ); sub new { my ($class, $self) = @_; local $" = '] ['; return bless \$self, $class; } sub add { return IGNORE; } sub present { my ($self, $view) = @_; my ($cmd, $method, $result); $view ||= $Pod::POM::DEFAULT_VIEW; $self = $$self; return $self unless ref $self eq 'ARRAY'; my $text = join('', map { ref $_ ? $_->present($view) : $view->view_seq_text($_) } @{ $self->[CONTENT] }); if ($cmd = $self->[CMD]) { my $method = $NAME{ $cmd } || $cmd; $method = "view_seq_$method"; return $view->$method($text); } else { return $text; } } 1; =head1 NAME Pod::POM::Node::Sequence - =head1 SYNOPSIS use Pod::POM::Nodes; =head1 DESCRIPTION This module implements a specialization of the node class to represent sequence elements. =head1 AUTHOR Andrew Ford Ea.ford@ford-mason.co.ukE Andy Wardley Eabw@kfs.orgE =head1 COPYRIGHT Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. Copyright (C) 2009 Andrew Ford. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO Consult L for a discussion of nodes.