[Liveframe-commits] cvs commit: commons/lib/LiveFrame ImageHelper.pm

[<ix...@us...>]

ixjonez     01/12/02 01:48:42

  Added:       lib/LiveFrame ImageHelper.pm
  Log:
  add an interface for image manipulation utilities
  
  Revision  Changes    Path
  1.1                  commons/lib/LiveFrame/ImageHelper.pm
  
  Index: ImageHelper.pm
  ===================================================================
  # -*- Mode: Perl; indent-tabs-mode: nil; -*-
  
  package LiveFrame::ImageHelper;
  
  use strict;
  
  sub new {
      my ($class, $driver) = @_;
      defined $driver or
          die "no driver defined\n";
  
      $class .= "::$driver";
  
      eval "require $class";
      die $@ if $@;
  
      return $class->new();
  }
  
  ## interface public methods
  
  sub load {
      my ($self, $photo) = @_;
      die __PACKAGE__ . "::load not implemented\n";
  }
  
  sub ping {
      my ($self, $photo) = @_;
      die __PACKAGE__ . "::ping not implemented\n";
  }
  
  sub reset {
      my ($self) = @_;
      die __PACKAGE__ . "::reset not implemented\n";
  }
  
  sub rotate {
      my ($self, $degrees) = @_;
      die __PACKAGE__ . "::rotate not implemented\n";
  }
  
  sub save {
      my ($self, $new_photo) = @_;
      die __PACKAGE__ . "::save not implemented\n";
      return 1;
  }
  
  sub scale {
      my ($self, $params) = @_;
      die __PACKAGE__ . "::scale not implemented\n";
  }
  
  1;