view release on metacpan or  search on metacpan

samples/s1.pl  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use strict;

use Algorithm::BreakOverlappingRectangles;

my $a = Algorithm::BreakOverlappingRectangles->new;

while(<DATA>) {
    next if /^\s*$/;
    chomp;
    $a->add_rectangle(split/,/);
}

$a->dump;

# 10,10,13,11,f
# 10,10,11,13,g

__DATA__
0,1,5,5,a
2,2,6,6,b
2,2,3,3,c
1,0,2,10,d
0,2,7,3,e
0,0,1,10,f