OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	10/28/2024 06:50:33 AM	rwxr-xr-x
📄 Carp.pm	18.62 KB	12/01/2017 08:27:49 AM	rw-r--r--
📄 Cookie.pm	17.09 KB	12/01/2017 08:27:52 AM	rw-r--r--
📄 Fast.pm	8.87 KB	11/18/2017 08:20:30 PM	rw-r--r--
📁 File	-	02/11/2020 08:10:07 AM	rwxr-xr-x
📁 HTML	-	02/11/2020 08:10:07 AM	rwxr-xr-x
📄 Pretty.pm	1.93 KB	12/01/2017 08:27:56 AM	rw-r--r--
📄 Push.pm	9.91 KB	12/01/2017 08:27:58 AM	rw-r--r--
📄 Util.pm	11.45 KB	12/01/2017 08:28:00 AM	rw-r--r--

Editing: Pretty.pm

package CGI::Pretty;

use strict;
use warnings;

use if $] >= 5.019, 'deprecate';
use CGI ();

$CGI::Pretty::VERSION = '4.38';
$CGI::DefaultClass = __PACKAGE__;
@CGI::Pretty::ISA = qw( CGI );

sub new {
    my $class = shift;
    my $this = $class->SUPER::new( @_ );
    return bless $this, $class;
}

sub import {

warn "CGI::Pretty is DEPRECATED and will be removed in a future release. Please see https://github.com/leejo/CGI.pm/issues/162 for more information";

my $self = shift;
    no strict 'refs';

# This causes modules to clash.
    undef %CGI::EXPORT;
    undef %CGI::EXPORT;

$self->_setup_symbols(@_);
    my ($callpack, $callfile, $callline) = caller;

# To allow overriding, search through the packages
    # Till we find one in which the correct subroutine is defined.
    my @packages = ($self,@{"$self\:\:ISA"});
    foreach my $sym (keys %CGI::EXPORT) {
	my $pck;
	my $def = $CGI::DefaultClass;
	foreach $pck (@packages) {
	    if (defined(&{"$pck\:\:$sym"})) {
		$def = $pck;
		last;
	    }
	}
	*{"${callpack}::$sym"} = \&{"$def\:\:$sym"};
    }
}

=head1 NAME

CGI::Pretty - module to produce nicely formatted HTML code

=head1 CGI::Pretty IS DEPRECATED

It will be removed from the CGI distribution in a future release, so you
should no longer use it and remove it from any code that currently uses it.

For now it has been reduced to a shell to prevent your code breaking, but
the "pretty" functions will no longer output "pretty" HTML.

=head1 Alternatives

L<HTML::HTML5::Parser> + L<HTML::HTML5::Writer> + L<XML::LibXML::PrettyPrint>:

print HTML::HTML5::Writer->new(
        start_tags => 'force',
        end_tags   => 'force',
    )->document(
        XML::LibXML::PrettyPrint->new_for_html( indent_string => "\t" )
        ->pretty_print(
            HTML::HTML5::Parser->new->parse_string( $html_string )
        )
    );

L<Marpa::R2::HTML> (see the html_fmt script for examples)

L<HTML::Tidy>

L<HTML::Parser>

=cut