package bug::myitem;

use strict;
use warnings;

sub new {
    my ($class, $id, $file) = @_;

    my $self;
    $self->{id} = $id;
    $self->{file} = $file;
    bless($self, $class);
    return $self;
}


sub getContent() {
    my $self = shift;
    my $fh;
    my $res;
    open($fh, "<",$self->{file}) or die "cannot open '".$self->{file}."'";
    while (<$fh>) {
	chomp;
	$res .= $_."***";
    }
    return $res;
}

1;