view release on metacpan or  search on metacpan

lib/Web/Simple/AntiquatedPerl.pod  view on Meta::CPAN

  ----
  ~~"$foo bar"
  loc("_[0] bar", $foo)
  ----
  for
  ----
    for ($foo) {
      /bar/ and ...
  ----
    for ($foo) {
      /bar/ and return do {
        <code here>
      }
  ----
    /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 |= 0x20000;
    $^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