package LazyFilt;

use 5.8.0;
use warnings;
use strict;
use Data::Lazy;
use Filter::Util::Call;

our $state = 0;

sub import {
  filter_add([]);
}

sub filter {
  my $status = filter_read();
  return $status unless $status > 0;
  my $result = "";
  my @stmts = split /;/;
  foreach my $stmt (@stmts) {
    my @lazyass = split /=\[l\]/,$stmt;
    if (@lazyass == 1) {
      $result .= $stmt . ";";
      next
    }
    die "We don't support this (@lazyass)!" if (@lazyass > 2);
    $result .= "tie $lazyass[0], 'Data::Lazy', sub { $lazyass[1] };";
  }
  $result .= "\n";
  $_ = $result;
  return $status;
}

1;