trunk/package/suse/external-dependencies/Class-Factory.spec

   1 #
   2 #   - Class::Factory -
   3 #   This spec file was automatically generated by cpan2rpm [ver: 2.027]
   4 #   The following arguments were used:
   5 #       --spec-only --version=1.04 '--author=Fred Moyer' Class-Factory-1.04.tar.gz
   6 #   For more information on cpan2rpm please visit: http://perl.arix.com/
   7 #
   8
   9 %define pkgname Class-Factory
  10 %define filelist %{pkgname}-%{version}-filelist
  11 %define NVR %{pkgname}-%{version}-%{release}
  12 %define maketest 1
  13
  14 name:      perl-Class-Factory
  15 summary:   Class-Factory - Useful base class for factory classes
  16 version:   1.04
  17 release:   1
  18 vendor:    Fred Moyer
  19 packager:  Arix International <cpan2rpm@arix.com>
  20 license:   Artistic
  21 group:     Applications/CPAN
  22 url:       http://www.cpan.org
  23 buildroot: %{_tmppath}/%{name}-%{version}-%(id -u -n)
  24 buildarch: noarch
  25 prefix:    %(echo %{_prefix})
  26 source:    Class-Factory-1.04.tar.gz
  27
  28 %description
  29 This is a simple module that factory classes can use to generate new
  30 types of objects on the fly, providing a consistent interface to
  31 common groups of objects.
  32
  33 Factory classes are used when you have different implementations for
  34 the same set of tasks but may not know in advance what implementations
  35 you will be using. Configuration files are a good example of
  36 this. There are four basic operations you would want to do with any
  37 configuration: read the file in, lookup a value, set a value, write
  38 the file out. There are also many different types of configuration
  39 files, and you may want users to be able to provide an implementation
  40 for their own home-grown configuration format.
  41
  42 With a factory class this is easy. To create the factory class, just
  43 subclass "Class::Factory" and create an interface for your
  44 configuration serializer. "Class::Factory" even provides a simple
  45 constructor for you. Here's a sample interface and our two built-in
  46 configuration types:
  47
  48  package My::ConfigFactory;
  49
  50  use strict;
  51  use base qw( Class::Factory );
  52
  53  sub read  { die "Define read() in implementation" }
  54  sub write { die "Define write() in implementation" }
  55  sub get   { die "Define get() in implementation" }
  56  sub set   { die "Define set() in implementation" }
  57
  58  __PACKAGE__->add_factory_type( ini  => 'My::IniReader' );
  59  __PACKAGE__->add_factory_type( perl => 'My::PerlReader' );
  60
  61  1;
  62
  63 And then users can add their own subclasses:
  64
  65  package My::CustomConfig;
  66
  67  use strict;
  68  use base qw( My::ConfigFactory );
  69
  70  sub init {
  71      my ( $self, $filename, $params ) = @_;
  72      if ( $params->{base_url} ) {
  73          $self->read_from_web( join( '/', $params->{base_url}, $filename ) );
  74      }
  75      else {
  76          $self->read( $filename );
  77      }
  78      return $self;
  79  }
  80
  81  sub read  { ... implementation to read a file ... }
  82  sub write { ... implementation to write a file ...  }
  83  sub get   { ... implementation to get a value ... }
  84  sub set   { ... implementation to set a value ... }
  85
  86  sub read_from_web { ... implementation to read via http ... }
  87
  88  # Now register my type with the factory
  89
  90  My::ConfigFactory->add_factory_type( 'mytype' => __PACKAGE__ );
  91
  92  1;
  93
  94 (You may not wish to make your factory the same as your interface, but
  95 this is an abbreviated example.)
  96
  97 So now users can use the custom configuration with something like:
  98
  99  #!/usr/bin/perl
 100
 101  use strict;
 102  use My::ConfigFactory;
 103  use My::CustomConfig;   # this adds the factory type 'custom'...
 104
 105  my $config = My::ConfigFactory->new( 'custom', 'myconf.dat' );
 106  print "Configuration is a: ", ref( $config ), "\n";
 107
 108 Which prints:
 109
 110  Configuration is a My::CustomConfig
 111
 112 And they can even add their own:
 113
 114  My::ConfigFactory->register_factory_type( 'newtype' => 'My::New::ConfigReader' );
 115
 116 This might not seem like a very big win, and for small standalone
 117 applications probably isn't. But when you develop large applications
 118 the "(add|register)_factory_type()" step will almost certainly be
 119 done at application initialization time, hidden away from the eyes of
 120 the application developer. That developer will only know that she can
 121 access the different object types as if they are part of the system.
 122
 123 As you see in the example above implementation for subclasses is very
 124 simple -- just add "Class::Factory" to your inheritance tree and you
 125 are done.
 126
 127 #
 128 # This package was generated automatically with the cpan2rpm
 129 # utility.  To get this software or for more information
 130 # please visit: http://perl.arix.com/
 131 #
 132
 133 %prep
 134 %setup -q -n %{pkgname}-%{version}
 135 chmod -R u+w %{_builddir}/%{pkgname}-%{version}
 136
 137 %build
 138 grep -rsl '^#!.*perl' . |
 139 grep -v '.bak$' |xargs --no-run-if-empty \
 140 %__perl -MExtUtils::MakeMaker -e 'MY->fixin(@ARGV)'
 141 CFLAGS="$RPM_OPT_FLAGS"
 142 %{__perl} Makefile.PL `%{__perl} -MExtUtils::MakeMaker -e ' print qq|PREFIX=%{buildroot}%{_prefix}| if \$ExtUtils::MakeMaker::VERSION =~ /5\.9[1-6]|6\.0[0-5]/ '`
 143 %{__make}
 144 %if %maketest
 145 %{__make} test
 146 %endif
 147
 148 %install
 149 [ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
 150
 151 %{makeinstall} `%{__perl} -MExtUtils::MakeMaker -e ' print \$ExtUtils::MakeMaker::VERSION <= 6.05 ? qq|PREFIX=%{buildroot}%{_prefix}| : qq|DESTDIR=%{buildroot}| '`
 152
 153 cmd=/usr/share/spec-helper/compress_files
 154 [ -x $cmd ] || cmd=/usr/lib/rpm/brp-compress
 155 [ -x $cmd ] && $cmd
 156
 157 # SuSE Linux
 158 if [ -e /etc/SuSE-release -o -e /etc/UnitedLinux-release ]
 159 then
 160     %{__mkdir_p} %{buildroot}/var/adm/perl-modules
 161     %{__cat} `find %{buildroot} -name "perllocal.pod"`  \
 162         | %{__sed} -e s+%{buildroot}++g                 \
 163         > %{buildroot}/var/adm/perl-modules/%{name}
 164 fi
 165
 166 # remove special files
 167 find %{buildroot} -name "perllocal.pod" \
 168     -o -name ".packlist"                \
 169     -o -name "*.bs"                     \
 170     |xargs -i rm -f {}
 171
 172 # no empty directories
 173 find %{buildroot}%{_prefix}             \
 174     -type d -depth                      \
 175     -exec rmdir {} \; 2>/dev/null
 176
 177 %{__perl} -MFile::Find -le '
 178     find({ wanted => \&wanted, no_chdir => 1}, "%{buildroot}");
 179     print "%doc  Changes README";
 180     for my $x (sort @dirs, @files) {
 181         push @ret, $x unless indirs($x);
 182         }
 183     print join "\n", sort @ret;
 184
 185     sub wanted {
 186         return if /auto$/;
 187
 188         local $_ = $File::Find::name;
 189         my $f = $_; s|^\Q%{buildroot}\E||;
 190         return unless length;
 191         return $files[@files] = $_ if -f $f;
 192
 193         $d = $_;
 194         /\Q$d\E/ && return for reverse sort @INC;
 195         $d =~ /\Q$_\E/ && return
 196             for qw|/etc %_prefix/man %_prefix/bin %_prefix/share|;
 197
 198         $dirs[@dirs] = $_;
 199         }
 200
 201     sub indirs {
 202         my $x = shift;
 203         $x =~ /^\Q$_\E\// && $x ne $_ && return 1 for @dirs;
 204         }
 205     ' > %filelist
 206
 207 [ -z %filelist ] && {
 208     echo "ERROR: empty %files listing"
 209     exit -1
 210     }
 211
 212 %clean
 213 [ "%{buildroot}" != "/" ] && rm -rf %{buildroot}
 214
 215 %files -f %filelist
 216 %defattr(-,root,root)
 217
 218 %changelog
 219 * Thu Nov 23 2006 root@dca02
 220 - Initial build.