This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use Benchmark; | |
use List::Util 'any'; | |
use match::simple::XS; | |
use match::simple qw(match); | |
my $count = shift || 2_000_000; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# This is the old way to do it. | |
use v5.10; | |
use strict; | |
use warnings; | |
use Test::More; | |
use Test::Fatal; | |
use Types::Standard -all; | |
use Type::Params -all; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<html | |
xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#" | |
xmlns:http="http://www.w3.org/2006/http#" | |
xmlns:cnt="http://www.w3.org/2008/content#"> | |
<head> | |
<title>Example of HTTP in RDFa</title> | |
<style type="text/css"> | |
div[typeof="http:Request"] | |
{ | |
border: 1px solid black; |