hoehrmann

#!perl -w
use Modern::Perl;
use Algorithm::Diff::XS;
use Statistics::Basic qw/median stddev avg/;
use Mail::Mbox::MessageParser;
use MIME::Parser;
use MIME::Parser::Reader;
use Mail::Field;
use Encode;
use HTML::Entities;

hoehrmann

use v5.16;
use strict;
use warnings;

state $f = do {
  open my $f, '>:utf8', 'delme.tmp';
  $f;
};

print $f "" if 0;

hoehrmann

package main;
use Modern::Perl;
use Coro::Generator;

my $even = generator {
  my $x = 0;
  while(1) {
    $x += 2;
    # use references as boxing mechanism
    # yield non-reference to indicate end

hoehrmann

package Acme::IEnumerable;
use v5.16;
use strict;
use warnings;

our $StopIteration = {};

sub integers {
  my ($class) = @_;
  return bless sub {

hoehrmann

package Acme::IEnumerable::List;
use Modern::Perl;
use base qw/Acme::IEnumerable/;

1;

package Acme::IEnumerable;
use Modern::Perl;
use Carp;

hoehrmann

package Acme::IEnumerable::IGrouping;
use Modern::Perl;
use base qw/Acme::IEnumerable/;

1;

package Acme::IEnumerable::List;
use Modern::Perl;
use base qw/Acme::IEnumerable/;

hoehrmann

package Acme::IEnumerable::List;
use Modern::Perl;
use base qw/Acme::IEnumerable/;

sub _create {
  bless {
    _list => $_[0],
    _new => $_[1],
  }, __PACKAGE__;
}

hoehrmann

--------------------------------------------------------------------------
| name                                                    | date         |
==========================================================================
| "eGovernment Interest Group"                            | "2009-09-08" |
| "XML Print and Page Layout Working Group"               | "2012-01-17" |
| "XML Processing Model Working Group"                    | "2012-01-24" |
| "Geolocation Working Group"                             | "2012-05-10" |
| "Web Notification Working Group"                        | "2012-06-14" |
| "Efficient XML Interchange Working Group"               | "2012-07-31" |
| "Model-Based User Interfaces Working Group"             | "2012-08-02" |

hoehrmann

#####################################################################
#
#####################################################################
package Acme::IEnumerable::List;
use Modern::Perl;
use base qw/Acme::IEnumerable/;
use Carp;

sub _create {
  bless {

hoehrmann

Uses DOS;

var
  DiskSizeMB,DiskSizeKB:Integer;
  DiskFreeMB,DiskFreeKB:Integer;
  GesamtMBf,GesamtKBf:integer;
  GesamtMBs,GesamtKBs:integer;
  Prozent:longint;
  ds,df:real;
  s:String;