package PITA::Image::Platform; use 5.005; use strict; use vars qw{$VERSION}; BEGIN { $VERSION = '0.42'; } ##################################################################### # Constructor and Accessors sub new { my $class = shift; my $self = bless { @_ }, $class; $self->_init; $self; } sub _init { my $self = shift; 1; } sub scheme { $_[0]->{scheme}; } sub path { $_[0]->{path}; } 1;