Graybyt3 Was Here

Linux host1.absolutelystunningcenterpieces.com 3.10.0-957.21.3.el7.x86_64 #1 SMP Tue Jun 18 16:35:19 UTC 2019 x86_64
Apache
69.167.136.200

File Name : LinkSection.pm

require 5;
package Pod::Simple::LinkSection;
  # Based somewhat dimly on Array::Autojoin
use vars qw($VERSION );
$VERSION = '3.28';

use strict;
use Pod::Simple::BlackBox;
use vars qw($VERSION );
$VERSION = '3.28';

use overload( # So it'll stringify nice
  '""'   => \&Pod::Simple::BlackBox::stringify_lol,
  'bool' => \&Pod::Simple::BlackBox::stringify_lol,
  # '.='   => \&tack_on,  # grudgingly support
  
  'fallback' => 1,         # turn on cleverness
);

sub tack_on {
  $_[0] = ['', {}, "$_[0]" ];
  return $_[0][2] .= $_[1];
}

sub as_string {
  goto &Pod::Simple::BlackBox::stringify_lol;
}
sub stringify {
  goto &Pod::Simple::BlackBox::stringify_lol;
}

sub new {
  my $class = shift;
  $class = ref($class) || $class;
  my $new;
  if(@_ == 1) {
    if (!ref($_[0] || '')) { # most common case: one bare string
      return bless ['', {}, $_[0] ], $class;
    } elsif( ref($_[0] || '') eq 'ARRAY') {
      $new = [ @{ $_[0] } ];
    } else {
      Carp::croak( "$class new() doesn't know to clone $new" );
    }
  } else { # misc stuff
    $new = [ '', {}, @_ ];
  }

# By now it's a treelet:  [ 'foo', {}, ... ]
  foreach my $x (@$new) {
    if(ref($x || '') eq 'ARRAY') {
      $x = $class->new($x); # recurse
    } elsif(ref($x || '') eq 'HASH') {
      $x = { %$x };
    }
     # otherwise leave it.
  }

return bless $new, $class;
}

# Not much in this class is likely to be link-section specific --
# but it just so happens that link-sections are about the only treelets
# that are exposed to the user.

__END__

# TODO: let it be an option whether a given subclass even wants little treelets?

__END__

=head1 NAME

Pod::Simple::LinkSection -- represent "section" attributes of L codes

=head1 SYNOPSIS

# a long story

=head1 DESCRIPTION

This class is not of interest to general users.

Pod::Simple uses this class for representing the value of the
"section" attribute of "L" start-element events.  Most applications
can just use the normal stringification of objects of this class;
they stringify to just the text content of the section,
such as "foo" for
C<< LZ<><Stuff/foo> >>, and "bar" for 
C<< LZ<><Stuff/bIZ<><ar>> >>.

However, anyone particularly interested in getting the full value of
the treelet, can just traverse the content of the treeleet
@$treelet_object.  To wit:

% perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper($_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = bless( [
                   '',
                   {},
                   'b',
                   bless( [
                            'I',
                            {},
                            'ar'
                          ], 'Pod::Simple::LinkSection' ),
                   'baz'
                 ], 'Pod::Simple::LinkSection' );

But stringify it and you get just the text content:

% perl -MData::Dumper -e
    "use base qw(Pod::Simple::Methody);
     sub start_L { print Dumper( '' . $_[1]{'section'} ) }
     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
    "
Output:
  $VAR1 = 'barbaz';

=head1 SEE ALSO

L<Pod::Simple>

=head1 SUPPORT

Questions or discussion about POD and Pod::Simple should be sent to the
pod-people@perl.org mail list. Send an empty email to
pod-people-subscribe@perl.org to subscribe.

This module is managed in an open GitHub repository,
L<https://github.com/theory/pod-simple/>. Feel free to fork and contribute, or
to clone L<git://github.com/theory/pod-simple.git> and send patches!

Patches against Pod::Simple are welcome. Please send bug reports to
<bug-pod-simple@rt.cpan.org>.

=head1 COPYRIGHT AND DISCLAIMERS

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

This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.

=head1 AUTHOR

Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
But don't bother him, he's retired.

Pod::Simple is maintained by:

=over

=item * Allison Randal C<allison@perl.org>

=item * Hans Dieter Pearcey C<hdp@cpan.org>

=item * David E. Wheeler C<dwheeler@cpan.org>

=back

=cut

System Information
*ReClick For Close
File : BlackDragon /wanderfuls/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2019-06-29 08:09:44
..	dir	-	root/root	0755	2019-06-29 08:09:53
BlackBox.pm	file	64.69 KB	root/root	0644	2013-05-03 04:24:53
Checker.pm	file	5.24 KB	root/root	0644	2013-05-03 04:24:53
Debug.pm	file	4.5 KB	root/root	0644	2013-05-03 04:24:53
DumpAsText.pm	file	3.92 KB	root/root	0644	2013-05-03 04:24:53
DumpAsXML.pm	file	4.29 KB	root/root	0644	2013-05-03 04:24:53
HTML.pm	file	32.69 KB	root/root	0644	2013-05-03 04:24:53
HTMLBatch.pm	file	39.55 KB	root/root	0644	2013-05-03 04:24:53
HTMLLegacy.pm	file	2.69 KB	root/root	0644	2012-01-03 12:06:30
LinkSection.pm	file	4.24 KB	root/root	0644	2013-05-03 04:24:53
Methody.pm	file	3.48 KB	root/root	0644	2013-05-03 04:24:53
Progress.pm	file	2.36 KB	root/root	0644	2013-05-03 04:24:53
PullParser.pm	file	24.76 KB	root/root	0644	2013-05-03 04:24:53
PullParserEndToken.pm	file	2.81 KB	root/root	0644	2013-05-03 04:24:53
PullParserStartToken.pm	file	4.04 KB	root/root	0644	2013-05-03 04:24:53
PullParserTextToken.pm	file	3.08 KB	root/root	0644	2013-05-03 04:24:53
PullParserToken.pm	file	3.89 KB	root/root	0644	2013-05-03 04:24:53
RTF.pm	file	21.14 KB	root/root	0644	2013-05-03 04:24:53
Search.pm	file	32.7 KB	root/root	0644	2013-05-03 04:24:53
SimpleTree.pm	file	4.47 KB	root/root	0644	2013-05-03 04:24:53
Subclassing.pod	file	32.33 KB	root/root	0644	2013-05-03 04:13:11
Text.pm	file	5.01 KB	root/root	0644	2013-05-03 04:24:53
TextContent.pm	file	2.48 KB	root/root	0644	2013-05-03 04:24:53
TiedOutFH.pm	file	2.67 KB	root/root	0644	2013-05-03 04:24:53
Transcode.pm	file	699 B	root/root	0644	2013-05-03 04:24:53
TranscodeDumb.pm	file	1.16 KB	root/root	0644	2013-05-03 04:24:53
TranscodeSmart.pm	file	715 B	root/root	0644	2013-05-03 04:24:53
XHTML.pm	file	24.93 KB	root/root	0644	2013-05-03 04:24:53
XMLOutStream.pm	file	4.86 KB	root/root	0644	2013-05-03 04:24:53