package prefs;

use strict;

use Config::IniFiles;
our @ISA = qw( Config::IniFiles );

sub new {

   my $self = shift;
   my $class = (ref $self) || $self;

   my $fname = 'fubar.ini';

   my $obj;

   if (-f $fname) {
      $obj = $self->SUPER::new( -file => $fname );

   } else {
      $obj = $self->SUPER::new();
      $obj->SetFileName( $fname );
      $obj->AddSection( 'fubar1' );
      $obj->newval('var1=default');
   }

   return bless($obj, $class);
}

sub DESTROY {

   my $self = shift;

   $self->RewriteConfig();

   $self->SUPER::DESTROY(@_);
}

1;

##</code><code>##

#!/usr/bin/perl -I.

use strict;

use prefs;

my $inifile = new prefs;

##</code><code>##

#!/usr/bin/perl -I.

use strict;

use prefs;

our $inifile = new prefs;