Skip to content

Commit 99ac11c

Browse files
Sean M. BurkeGitpan
Sean M. Burke
authored and
Gitpan
committed
Import of SBURKE/HTML-Tagset-3.04 from CPAN.
gitpan-cpan-distribution: HTML-Tagset gitpan-cpan-version: 3.04 gitpan-cpan-path: SBURKE/HTML-Tagset-3.04.tar.gz gitpan-cpan-author: SBURKE gitpan-cpan-maturity: released
1 parent 7a595f1 commit 99ac11c

9 files changed

Lines changed: 133 additions & 32 deletions

File tree

‎ChangeLog‎

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,10 @@
1-
Revision history for Perl extension HTML::TagSet
2-
Time-stamp: "2000-10-20 19:33:53 MDT"
1+
Revision history for Perl extension HTML::Tagset
2+
Time-stamp: "2004-12-29 19:13:52 AST"
33

4+
2004-12-29 Sean M. Burke sburke@cpan.org
5+
6+
* Realese 3.04 -- just a rebundling; no actual code changes
7+
48
2000-10-20 Sean M. Burke sburke@cpan.org
59

610
* Release 3.03

‎MANIFEST‎

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,9 @@
11
ChangeLog
2-
Tagset.pm
3-
MANIFEST
2+
lib/HTML/Tagset.pm
43
Makefile.PL
5-
test.pl
4+
MANIFEST
5+
MANIFEST.SKIP
66
README
7+
t/00_about_verbose.t
8+
t/01_old_junk.t
9+
META.yml Module meta-data (added by MakeMaker)

‎MANIFEST.SKIP‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
^MANIFEST\.bak$
2+
Makefile(\.old)?$
3+
\.rej$
4+
CVS
5+
blib
6+
~
7+

‎META.yml‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
# http://module-build.sourceforge.net/META-spec.html
2+
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
3+
name: HTML-Tagset
4+
version: 3.04
5+
version_from: lib/HTML/Tagset.pm
6+
installdirs: site
7+
requires:
8+
9+
distribution_type: module
10+
generated_by: ExtUtils::MakeMaker version 6.17

‎Makefile.PL‎

Lines changed: 9 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -1,24 +1,16 @@
1-
# This -*- perl -*- script writes the Makefile for HTML::Tagset
2-
# Time-stamp: "2000-08-19 18:00:37 MDT"
3-
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
4-
# the contents of the Makefile that is written.
1+
# This -*-perl-*- script writes the Makefile for installing this distribution.
2+
#
3+
# See "perldoc perlmodinstall" or "perldoc ExtUtils::MakeMaker" for
4+
# info on how to control how the installation goes.
5+
#
6+
# Time-stamp: "2004-12-29 20:20:12 AST"
7+
58
require 5.004;
69
use strict;
710
use ExtUtils::MakeMaker;
811

912
WriteMakefile(
1013
'NAME' => 'HTML::Tagset',
11-
'VERSION_FROM' => 'Tagset.pm', # finds $VERSION
12-
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
14+
'VERSION_FROM' => 'lib/HTML/Tagset.pm', # finds $VERSION
15+
'dist' => { COMPRESS => 'gzip -6f', SUFFIX => 'gz', },
1316
);
14-
15-
package MY;
16-
17-
sub libscan
18-
{ # Determine things that should *not* be installed
19-
my($self, $path) = @_;
20-
return '' if $path =~ m/~/;
21-
$path;
22-
}
23-
24-
__END__

Tagset.pm renamed to lib/HTML/Tagset.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11

22
require 5;
3-
package HTML::Tagset; # Time-stamp: "2000-10-20 19:35:06 MDT"
3+
package HTML::Tagset; # Time-stamp: "2004-12-29 19:13:01 AST"
44
use strict;
55
use vars qw(
66
$VERSION
@@ -14,7 +14,7 @@ use vars qw(
1414
%isCDATA_Parent
1515
);
1616

17-
$VERSION = '3.03';
17+
$VERSION = '3.04';
1818

1919
=head1 NAME
2020

‎t/00_about_verbose.t‎

Lines changed: 85 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,85 @@
1+
2+
require 5;
3+
# Time-stamp: "2004-12-29 20:55:15 AST"
4+
# Summary of, well, things.
5+
6+
use Test;
7+
BEGIN {plan tests => 2};
8+
ok 1;
9+
10+
use HTML::Tagset ();
11+
12+
#chdir "t" if -e "t";
13+
14+
{
15+
my @out;
16+
push @out,
17+
"\n\nPerl v",
18+
defined($^V) ? sprintf('%vd', $^V) : $],
19+
" under $^O ",
20+
(defined(&Win32::BuildNumber) and defined &Win32::BuildNumber())
21+
? ("(Win32::BuildNumber ", &Win32::BuildNumber(), ")") : (),
22+
(defined $MacPerl::Version)
23+
? ("(MacPerl version $MacPerl::Version)") : (),
24+
"\n"
25+
;
26+
27+
# Ugly code to walk the symbol tables:
28+
my %v;
29+
my @stack = (''); # start out in %::
30+
my $this;
31+
my $count = 0;
32+
my $pref;
33+
while(@stack) {
34+
$this = shift @stack;
35+
die "Too many packages?" if ++$count > 1000;
36+
next if exists $v{$this};
37+
next if $this eq 'main'; # %main:: is %::
38+
39+
#print "Peeking at $this => ${$this . '::VERSION'}\n";
40+
41+
if(defined ${$this . '::VERSION'} ) {
42+
$v{$this} = ${$this . '::VERSION'}
43+
} elsif(
44+
defined *{$this . '::ISA'} or defined &{$this . '::import'}
45+
or ($this ne '' and grep defined *{$_}{'CODE'}, values %{$this . "::"})
46+
# If it has an ISA, an import, or any subs...
47+
) {
48+
# It's a class/module with no version.
49+
$v{$this} = undef;
50+
} else {
51+
# It's probably an unpopulated package.
52+
## $v{$this} = '...';
53+
}
54+
55+
$pref = length($this) ? "$this\::" : '';
56+
push @stack, map m/^(.+)::$/ ? "$pref$1" : (), keys %{$this . '::'};
57+
#print "Stack: @stack\n";
58+
}
59+
push @out, " Modules in memory:\n";
60+
delete @v{'', '[none]'};
61+
foreach my $p (sort {lc($a) cmp lc($b)} keys %v) {
62+
$indent = ' ' x (2 + ($p =~ tr/:/:/));
63+
push @out, ' ', $indent, $p, defined($v{$p}) ? " v$v{$p};\n" : ";\n";
64+
}
65+
push @out, sprintf "[at %s (local) / %s (GMT)]\n",
66+
scalar(gmtime), scalar(localtime);
67+
my $x = join '', @out;
68+
$x =~ s/^/#/mg;
69+
print $x;
70+
}
71+
72+
print "# Running",
73+
(chr(65) eq 'A') ? " in an ASCII world.\n" : " in a non-ASCII world.\n",
74+
"#\n",
75+
;
76+
77+
print "# \@INC:\n", map("# [$_]\n", @INC), "#\n#\n";
78+
79+
print "# \%INC:\n";
80+
foreach my $x (sort {lc($a) cmp lc($b)} keys %INC) {
81+
print "# [$x] = [", $INC{$x} || '', "]\n";
82+
}
83+
84+
ok 1;
85+

‎t/01_old_junk.t‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
2+
# Time-stamp: "2004-12-29 18:49:45 AST"
3+
4+
BEGIN { $| = 1; print "1..1\n"; }
5+
END {print "not ok 1\n" unless $loaded;}
6+
use HTML::Tagset;
7+
$loaded = 1;
8+
print "ok 1\n";

‎test.pl‎

Lines changed: 0 additions & 8 deletions
This file was deleted.

0 commit comments

Comments
 (0)