CPerlWrap - A class wrapper for embedding Perl into your MFC program

// CPerlWrapperDoc.cpp : implementation of the CCPerlWrapperDoc class
//

#include "stdafx.h"
#include "CPerlWrapper.h"

#include "CPerlWrapperDoc.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
//lint -esym(528,THIS_FILE)		not referenced
//lint -esym(843,THIS_FILE)		could be declared as const
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CCPerlWrapperDoc

IMPLEMENT_DYNCREATE(CCPerlWrapperDoc, CDocument)

BEGIN_MESSAGE_MAP(CCPerlWrapperDoc, CDocument)
	//{{AFX_MSG_MAP(CCPerlWrapperDoc)
		// NOTE - the ClassWizard will add and remove mapping macros here.
		//    DO NOT EDIT what you see in these blocks of generated code!
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CCPerlWrapperDoc construction/destruction

CCPerlWrapperDoc::CCPerlWrapperDoc()
{
	// TODO: add one-time construction code here

}

CCPerlWrapperDoc::~CCPerlWrapperDoc()
{
}

BOOL CCPerlWrapperDoc::OnNewDocument()
{
	if (!CDocument::OnNewDocument())
		return FALSE;

	// TODO: add reinitialization code here
	// (SDI documents will reuse this document)

	return TRUE;
}



/////////////////////////////////////////////////////////////////////////////
// CCPerlWrapperDoc serialization

void CCPerlWrapperDoc::Serialize(CArchive& ar)
{
	if (ar.IsStoring())
	{
		// TODO: add storing code here
	}
	else
	{
		// TODO: add loading code here
	}
}

/////////////////////////////////////////////////////////////////////////////
// CCPerlWrapperDoc diagnostics

#ifdef _DEBUG
void CCPerlWrapperDoc::AssertValid() const
{
	CDocument::AssertValid();
}

void CCPerlWrapperDoc::Dump(CDumpContext& dc) const
{
	CDocument::Dump(dc);
}
#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CCPerlWrapperDoc commands