~ubuntu-branches/ubuntu/gutsy/horae/gutsy

« back to all changes in this revision

Viewing changes to 0CPAN/XML-Simple-2.14/t/lib/TagsToUpper.pm

• browse files at revision 3
• compare with another revision
• download diff
• download tarball
• view history from revision 3

Show diffs side-by-side

added

removed

0CPAN/XML-Simple-2.14/t/lib/TagsToUpper.pm

1

 

package TagsToUpper;

2

 

 

3

 

use XML::SAX::Base;

4

 

 

5

 

use vars qw(@ISA);

6

 

 

7

 

@ISA = ('XML::SAX::Base');

8

 

 

9

 

sub start_element {

10

 

  my $self    = shift;

11

 

  my $element = shift;

12

 

 

13

 

#  print Data::Dumper->Dump([$element], ['element']);

14

 

  to_upper($element);

15

 

  foreach (values(%{$element->{Attributes}})) { to_upper($_); }

16

 

 

17

 

  $self->SUPER::start_element($element);

18

 

}

19

 

 

20

 

sub end_element {

21

 

  my $self    = shift;

22

 

  my $element = shift;

23

 

 

24

 

  to_upper($element);

25

 

 

26

 

  $self->SUPER::end_element($element);

27

 

}

28

 

 

29

 

sub to_upper {

30

 

  my $ref = shift;

31

 

 

32

 

  $ref->{LocalName} = uc($ref->{LocalName}) if($ref->{LocalName});

33

 

  $ref->{Name}      = uc($ref->{Name})      if($ref->{LocalName});

34

 

  $ref->{Prefix}    = uc($ref->{Prefix})    if($ref->{LocalName});

35

 

}

36

 

 

37

 

1;

38

 

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1