[Rt-commit] [svn] r924 - in RT-Client: . lib/RT lib/RT/Client

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Tue May 18 23:58:57 2004
New Revision: 924

Modified:
   RT-Client/   (props changed)
   RT-Client/Makefile.PL
   RT-Client/lib/RT/Client.pm
   RT-Client/lib/RT/Client/Base.pm
   RT-Client/lib/RT/Client/Container.pm
   RT-Client/lib/RT/Client/Object.pm
Log:
 ----------------------------------------------------------------------
 r4970 at not:  autrijus | 2004-05-19T03:39:57.862408Z
 
 * record XML::Simple dependency.
 * assign copyright to BPS.
 ----------------------------------------------------------------------
 r4973 at not:  autrijus | 2004-05-19T03:58:32.147102Z
 
 * Ditch dep on Filter::Include.
 ----------------------------------------------------------------------
 r4974 at not:  autrijus | 2004-05-19T03:58:45.049697Z
 
 * This be 0.00_02.
 ----------------------------------------------------------------------


Modified: RT-Client/Makefile.PL
==============================================================================
--- RT-Client/Makefile.PL	(original)
+++ RT-Client/Makefile.PL	Tue May 18 23:58:57 2004
@@ -19,10 +19,10 @@
 version_from	('lib/RT/Client.pm');
 
 requires(qw(
+    XML::Simple		    0.01
     XML::Atom		    0.07
     LWP::Authen::Wsse	    0.01
     Spiffy		    0.16
-    Filter::Include	    1.4
 ));
 
 include('ExtUtils::AutoInstall');

Modified: RT-Client/lib/RT/Client.pm
==============================================================================
--- RT-Client/lib/RT/Client.pm	(original)
+++ RT-Client/lib/RT/Client.pm	Tue May 18 23:58:57 2004
@@ -1,7 +1,7 @@
 package RT::Client;
 
 use 5.006;
-our $VERSION = '0.00_01';
+our $VERSION = '0.00_02';
 our @ISA = 'XML::Atom::Client';
 
 =head1 NAME
@@ -10,7 +10,7 @@
 
 =head1 VERSION
 
-This document describes version 0.00_01 of RT::Client, released May 17, 2004.
+This document describes version 0.00_02 of RT::Client, released May 19, 2004.
 
 =head1 SYNOPSIS
 
@@ -50,13 +50,12 @@
 use LWP::Authen::Wsse;
 use LWP::UserAgent::RTClient;
 
+use RT::Client::Base ();
 use RT::Client::Object ();
 use RT::Client::Property ();
 use RT::Client::Container ();
 use RT::Client::ResultSet ();
 
-*XXX = *Spiffy::XXX;
-
 field path      => '/Atom/0.3/';
 field server    => 'localhost';
 field encoding  => 'UTF-8';
@@ -293,7 +292,7 @@
 
 =head1 COPYRIGHT
 
-Copyright 2004 by Autrijus Tang.
+Copyright 2004 by Best Practical Solutions, LLC.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

Modified: RT-Client/lib/RT/Client/Base.pm
==============================================================================
--- RT-Client/lib/RT/Client/Base.pm	(original)
+++ RT-Client/lib/RT/Client/Base.pm	Tue May 18 23:58:57 2004
@@ -1,7 +1,8 @@
-# Yes, the lack of a 'package' is deliberate.
+package RT::Client::Base;
 
 use strict;
 use warnings;
+use Spiffy '-Base';
 
 field 'uri';
 field 'doc';
@@ -18,7 +19,11 @@
 
 sub new {
     my %args = @_;
-    my $rv = $args{Stream} ? $self->SUPER::new(%args) : {};
+
+    no strict 'refs';
+    my $method = "${$self.'::ISA'}[-1]::new";
+
+    my $rv = $args{Stream} ? $self->$method(%args) : {};
     bless($rv, $self);
 
     $rv->uri($args{URI}) or die 'Missing URI';
@@ -28,7 +33,10 @@
 }
 
 sub init {
-    $self->SUPER::init(@_);
+    no strict 'refs';
+    my $method = "${ref($self).'::ISA'}[-1]::init";
+
+    $self->$method(@_);
     return if $self->{init}++;
 
     $self->_init_links;

Modified: RT-Client/lib/RT/Client/Container.pm
==============================================================================
--- RT-Client/lib/RT/Client/Container.pm	(original)
+++ RT-Client/lib/RT/Client/Container.pm	Tue May 18 23:58:57 2004
@@ -2,13 +2,11 @@
 
 use strict;
 use warnings;
-use Filter::Include;
-use Spiffy '-Base';
 use XML::Simple ();
 use XML::Atom::Feed;
+use Spiffy '-Base';
 
-include RT::Client::Base;
-our @ISA = 'XML::Atom::Feed';
+our @ISA = qw(RT::Client::Base XML::Atom::Feed);
 
 const _rel_map => {
     'service.post'    => 'add',

Modified: RT-Client/lib/RT/Client/Object.pm
==============================================================================
--- RT-Client/lib/RT/Client/Object.pm	(original)
+++ RT-Client/lib/RT/Client/Object.pm	Tue May 18 23:58:57 2004
@@ -2,13 +2,11 @@
 
 use strict;
 use warnings;
-use Filter::Include;
-use Spiffy '-Base';
 use XML::Simple ();
 use XML::Atom::Entry;
+use Spiffy '-Base';
 
-include RT::Client::Base;
-our @ISA = 'XML::Atom::Entry';
+our @ISA = qw(RT::Client::Base XML::Atom::Entry);
 
 const _rel_map => {
     'service.post'    => 'update',