Skip to content

Instantly share code, notes, and snippets.

View robinsmidsrod's full-sized avatar

Robin Smidsrød robinsmidsrod

View GitHub Profile
@robinsmidsrod
robinsmidsrod / load.pl
Created June 7, 2009 20:46
loader for imsmanifest.xml using XML::Toolkit::Loader
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Loader;
use Cwd qw(getcwd);
use lib getcwd();
my $loader = XML::Toolkit::Loader->new(
package XML::Toolkit::Loader::ParserNS;
use Moose;
extends qw(XML::Toolkit::Loader::Parser);
has namespace_map => (
isa => 'HashRef',
is => 'ro',
lazy => 1,
default => sub { {} },
);
<?xml version="1.0" encoding="UTF-8" ?>
<root>
<tag id="abc">
<id>foo</id>
<id>bar</id>
</tag>
</root>
@robinsmidsrod
robinsmidsrod / gist:130108
Created June 15, 2009 13:15
not the right way to check type in javascript
if ( ! ( typeof el === 'object' && el instanceof HTMLElement ) ) {
throw new TypeError("Argument is not a DOM node");
}
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Loader;
use Data::Dumper qw(Dumper);
use Cwd qw(getcwd);
use lib getcwd();
t/00.load.t ........ 1/1 # Testing XML::Toolkit 0.06
t/00.load.t ........ ok
t/01.basic.t ....... 4/? These XML namespaces have no mapping:
# Looks like your test exited with 255 just after 4.
t/01.basic.t ....... Dubious, test returned 255 (wstat 65280, 0xff00)
All 4 subtests passed
t/02.namespaced.t .. 1/? These XML namespaces have no mapping:
# Looks like your test exited with 255 just after 4.
robin@server:~/ims$ cat all_in_one.pl
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Builder;
use XML::Toolkit::Loader;
use Data::Dumper qw(Dumper);
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Builder;
use XML::Toolkit::Loader;
use Data::Dumper qw(Dumper);
my $filename = shift;
#!/usr/bin/perl
use strict;
use warnings;
use XML::Toolkit::Builder ();
use XML::Toolkit::Loader ();
use Data::Dumper qw(Dumper);
my $xml1 = '<root xmlns="abc">test</root>';
commit 5b70fa7ed266b78825dbf8d3dba65857d69fb54d
Author: Robin Smidsrød <robin@smidsrod.no>
Date: Fri Jun 19 20:47:10 2009 +0200
Tests for namespaced loading
diff --git a/t/03_1.namespaced_loading.t b/t/03_1.namespaced_loading.t
new file mode 100644
index 0000000..825cf36
--- /dev/null