From: Matt S Trout Date: Fri, 23 Oct 2009 13:40:31 +0000 (+0100) Subject: add presentation files from ipw 2009 X-Git-Tag: v0.003~65 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=879d8965aa77ba0dacf4ece8c90c963fd2b5dc1f;p=catagits%2FWeb-Simple.git add presentation files from ipw 2009 --- diff --git a/docs/antiquated-perl.xul b/docs/antiquated-perl.xul new file mode 100644 index 0000000..cc110bb --- /dev/null +++ b/docs/antiquated-perl.xul @@ -0,0 +1,565 @@ + +autoflush(1); +---- +it's core. +it's fine. +---- +but why +think? +---- + select((select(FOO),$|++)[0]) +---- + (select(FOO),$|++) + -> + ($old_selected_fh,$|) +---- + (select(FOO),$|++)[0] + -> + $old_select_fh +---- + select((select(FOO),$|++)[0]) + -> + use IO::Handle; + FOO->autoflush(1) +---- +~~ +---- + ~~@x +---- + ~(~(@x)) +---- +bitwise +negation +---- +so ... +---- + ~@x + -> + ~(scalar @x) +---- + ~~$number + -> + $number +---- + ~~@x + -> + scalar @x +---- + perl -MMoose -e'print ~~keys %INC' + 84 +---- +overload::constant +---- +lets you +affect +parsing +---- +numbers +strings +---- +q qq qr +t s qw +---- +i18n.pm +---- +~~"$foo bar" +loc("_[0] bar", $foo) +---- +for +---- + for ($foo) { + /bar/ and ... +---- + for ($foo) { + /bar/ and return do { + + } +---- + /foo/gc +---- + /\Gbar/gc +---- + sub parse { + my ($self, $str) = @_; + for ($str) { + /match1/gc and return + $self->_subparse_1($_) +---- + sub _subparse_1 { + my ($self) = @_; + for ($_[1]) { + /\Gsubmatch1/gc ... +---- +prototypes +---- + sub foo (&) { +---- + foo { + ... + }; +---- + prototype \&foo +---- +typeglobs +---- + *{"${package}::${name}"} + = sub { ... } +---- + local +---- + local $_ +---- + local *Carp::croak + = \&Carp::confess; +---- + do { + local (@ARGV, $/) = $file; + <> + } +---- +strict +and +warnings +---- + strict->import +---- +affects +compilation +scope +---- + sub strict_and_warnings::import { + strict->import; + warnings->import; + } +---- + use strict_and_warnings; +---- +$^H +%^H +---- + $^H |= 0x120000; + $^H{'foo'} + = bless($foo, 'My::Foo'); +---- + sub My::Foo::DESTROY { +---- + delete ${$package}{myimport} +---- +B::Hooks::EndOfScope +---- +tie +---- + tie $var, 'Foo'; +---- + sub FETCH + sub STORE +---- +Scalar +Array +Hash +Handle +---- +now ... +---- +mst: destruction +testing technology +since March 1983 +---- +3 days +old +---- +2 weeks +early +---- +incubator +---- +glass box +plastic tray +heater +---- +design +flaw +---- +BANG +---- +so ... +---- +interesting +fact +---- +prototypes +only warn +when parsed +---- +error when +compiled +---- +so ... +---- + dispatch [ + sub (GET + /) { ... }, + sub (GET + /user/*) { ... } + ]; +---- + foreach my $sub (@$dispatch) { + my $proto = prototype $sub; + $parser->parse($proto); + ... +---- + PARSE: { do { + push @match, $self->_parse_spec_section($spec) + or $self->_blam("Unable to work out what the next section is"); + last PARSE if (pos == length); + /\G\+/gc or $self->_blam('Spec sections must be separated by +'); + } until (pos == length) }; +---- + sub _blam { + my ($self, $error) = @_; + my $hat = (' ' x pos).'^'; + die "Error parsing dispatch specification: ${error}\n + ${_} + ${hat} here\n"; + } +---- + Error parsing ... + GET+/foo + ^ here +---- + sub (GET + /user/*) { + my ($self, $user) = @_; +---- +I hate +fetching +$self +---- + *{"${app}::self"} + = \${"${app}::self"}; +---- +use vars +---- + sub _run_with_self { + my ($self, $run, @args) = @_; + my $class = ref($self); + no strict 'refs'; + local *{"${class}::self"} = \$self; + $self->$run(@args); + } +---- +HTML +output +---- +templates +---- +HTML is +NOT TEXT +---- +
, + $text, +
; +---- +
+---- +<$fh> +---- + tie *{"${app}::${name}"}, + 'XML::Tags::TIEHANDLE', + "<${name}>"; +---- + sub TIEHANDLE { my $str = $_[1]; bless \$str, $_[0] } + sub READLINE { ${$_[0]} } +---- + sub DESTROY { + my ($into, @names) = @$_[0]; + no strict 'refs'; + delete ${$into}{$_} + for @names; + } +---- +
+---- +glob('/div'); +---- + *CORE::GLOBAL::glob + = sub { ... }; +---- + delete + ${CORE::GLOBAL::}{glob}; +---- + sub foo { + use XML::Tags qw(div); +
, "foo!",
; + } +---- +what about +interpolation +---- + my $stuff = 'foo"bar'; + +---- +hmm ... +---- +overload::constant! +---- + glob('a href="'.$stuff.'"'); +---- + glob( + bless(\'a href="', 'MagicTag') + .$stuff + .bless(\'"', 'MagicTag') + ) +---- + use overload + '.' => 'concat'; + + sub concat { +---- +hooking +it up +---- + sub (.html) { + filter_response { + $self->render_html($_[1]) + } + } +---- + bless( + $_[1], + 'Web::Simple::ResponseFilter' + ); +---- + if ($self->_is_response_filter($result)) { + return $self->_run_with_self( + $result, + $self->_run_dispatch_for($new_env, \@disp) + ); + } +---- +and the result? +---- + goto &demo; +---- +questions? +---- +thank +you +]]> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +