sub parse {
	my ($self, $file_name) = @_;
	$self->{'_xbrl_file'} = $file_name;
	
	if ( -e $self->{'_xbrl_file'}) {	
		my $parser = XML::LibXML->new(); 	
		my $dom = $parser->load_xml( location => $self->{'_xbrl_file'});  
		#Deal with the contexts 
		my @context_nodes = $dom->findnodes('/xbrli:xbrl/xbrli:context');
		
		foreach my $node (@context_nodes) {
			&add_context($self, $node);	
		}
			
	}	
	else {
		croak "$file_name doesn't exist";
	}
}

##</code><code>##

ok($xbrl->parse($incoming_file));

##</code><code>##

			sub parse {
	my ($self, $file_name) = @_;
	$self->{'_xbrl_file'} = $file_name;
	
	if ( -e $self->{'_xbrl_file'}) {	
		my $parser = XML::LibXML->new(); 	
		my $dom = $parser->load_xml( location => $self->{'_xbrl_file'});  
		#Deal with the contexts 
		my @context_nodes = $dom->findnodes('/xbrli:xbrl/xbrli:context');
		open(FH, ">junk.txt") or croak "can't open junk.txt"; 
		
		foreach my $node (@context_nodes) {
			print FH $node->toString();
#			&add_context($self, $node);	
		}
		close FH;	
	}	
	else {
		croak "$file_name doesn't exist";
	}
}