From 20267d8af37709eb13639d3c155b264adfef53bc Mon Sep 17 00:00:00 2001 From: Andrew Chilton Date: Sun, 20 Apr 2008 01:13:11 +1200 Subject: [PATCH] Add the updates for CIL::Comment --- lib/CIL/Comment.pm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/lib/CIL/Comment.pm b/lib/CIL/Comment.pm index 9bda63a..5c945cd 100644 --- a/lib/CIL/Comment.pm +++ b/lib/CIL/Comment.pm @@ -3,8 +3,23 @@ package CIL::Comment; use strict; use warnings; +use Config::IniFiles; + use base qw(CIL::Base); +## ---------------------------------------------------------------------------- + +sub new { + my ($proto) = @_; + my $class = ref $proto || $proto; + my $self = {}; + $self->{data} = {}; + $self->{Changed} = 0; + bless $self, $class; + $self->inserted; + return $self; +} + ## ---------------------------------------------------------------------------- 1; ## ---------------------------------------------------------------------------- -- 2.39.5