use Class::HPLOO ;

class Foo {

  use IO::All ;

  ## Object initializer:
  sub Foo ($file) {
    $this->{file_data} < io($file) ;
  }

}