module name : Dbschema.pm
this is portion of method that populate the hash for string.
sub getViewProcs
{

                my $lineNo=0;
                my $text;
                while (my $row = $sth->fetchrow_arrayref()) { ## Store all columns value in array of hash
                    #Add ownership information to views
                    $text = $row->[0];
                    if ( !$lineNo )  {
                        $text =~ s/^\s*create\s+view\s+$viewItem[0]\s+/create view $viewItem[1].$viewItem[0] /i;
                    }
                    $lineNo++;
                    for (my $i=0;$i<length($text);$i+=100) {
                        my $slice = substr($text, $i, 100);
                        $viewStr .= $slice;
                    }
                }
            }
            $retHashRef{$viewItem[0]} = $viewStr;

}

my ($procDDL)  = $self->getViewProcs($dbase,'P');
        if($procDDL){
            foreach my $procStr (keys %$procDDL) {
                 $pDDL .= "$procDDL->{$procStr}";
            }
            $pDDL .= "$goTxt";
        }
        $retHashRef{PROC} = $pDDL;