… | |
… | |
4 | |
4 | |
5 | =cut |
5 | =cut |
6 | |
6 | |
7 | package Crossfire; |
7 | package Crossfire; |
8 | |
8 | |
9 | our $VERSION = '0.1'; |
9 | our $VERSION = '0.9'; |
10 | |
10 | |
11 | use strict; |
11 | use strict; |
12 | |
12 | |
13 | use base 'Exporter'; |
13 | use base 'Exporter'; |
14 | |
14 | |
… | |
… | |
312 | my ($more, $prev); |
312 | my ($more, $prev); |
313 | |
313 | |
314 | open my $fh, "<:raw:perlio:utf8", $path |
314 | open my $fh, "<:raw:perlio:utf8", $path |
315 | or Carp::croak "$path: $!"; |
315 | or Carp::croak "$path: $!"; |
316 | |
316 | |
317 | binmode $fh; |
317 | # binmode $fh; |
318 | |
318 | |
319 | my $parse_block; $parse_block = sub { |
319 | my $parse_block; $parse_block = sub { |
320 | my %arc = @_; |
320 | my %arc = @_; |
321 | |
321 | |
322 | while (<$fh>) { |
322 | while (<$fh>) { |