/////////////////////////////////////////////////////////////////////////////
// Name:        ext/test/cpp/src/perltest.cpp
// Purpose:     test classes for wxPerl
// Author:      Mark Dootson
// Modified by:
// Created:     2012-09-28
// RCS-ID:      $Id$
// Copyright:   (c) 2012 Mark Dootson
// Licence:     This program is free software; you can redistribute it and/or
//              modify it under the same terms as Perl itself
/////////////////////////////////////////////////////////////////////////////

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#include "cpp/include/perltest.h"

// ----------------------------------------------------------------------------


wxPerlTestAbstractNonObject::wxPerlTestAbstractNonObject( const wxString& moniker )
{
    m_moniker = moniker;
}

wxPerlTestAbstractNonObject::~wxPerlTestAbstractNonObject()
{
}

wxPerlTestNonObject::wxPerlTestNonObject( const wxString& moniker )
    : wxPerlTestAbstractNonObject( moniker )
{
}

wxPerlTestNonObject::~wxPerlTestNonObject()
{
}

wxPerlTestAbstractObject::wxPerlTestAbstractObject( const wxString& moniker )
    : wxObject()
{
    m_moniker = moniker;
}

wxPerlTestAbstractObject::~wxPerlTestAbstractObject()
{
}

wxPerlTestObject::wxPerlTestObject( const wxString& moniker )
    : wxPerlTestAbstractObject( moniker )
{
}

wxPerlTestObject::~wxPerlTestObject()
{
}



wxString
wxPerlTestNonObject::DoGetMessage() const
{
    return wxT("A message from the C++ class wxPerlTestNonObject");
}

IMPLEMENT_ABSTRACT_CLASS(wxPerlTestAbstractObject, wxObject)

IMPLEMENT_DYNAMIC_CLASS(wxPerlTestObject, wxPerlTestAbstractObject)

wxString
wxPerlTestObject::DoGetMessage() const
{
    return wxT("A message from the C++ class wxPerlTestObject");
}